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EXECUTIVE  SUMMARY 


The  O'Hare  Runway  Configuration  Management  System  (CMS)  is  an 
interactive  multi-user  computer  system  designed  to  aid  O'Hare 
management  personnel  in  the  consistent  selection  of  runway 
configurations  in  order  to  reduce  aircraft  delays.  CMS  is  also  used 
for  the  purpose  of  communicating  and  disseminating  information  about 
the  airport  among  the  tower  and  Terminal  Radar  Control  Facility 
(TRACON)  personnel. 

Although  the  CMS  software  was  written  for  O'Hare  International 
Airport,  it  can  be  adapted  for  other  airports  to  serve  as  an 
automated  planning  aid  for  runway  configuration  management.  This 
would  require  changing  the  associated  site  specific  adaptation 
data.  At  some  airports,  however,  the  need  might  be  to  manage  the 
surrounding  airspace  which  is  shared  with  other  airports,  or  to 
manage  the  flow  of  aircraft  on  taxiways  as  opposed  to  runway 
configuration  management.  The  basic  concepts  of  CMS  can  be  extended 
to  include  such  applications  as  well  but  would  require  site  specific 
model  development  to  suit  the  needs  of  the  individual  airport. 

The  purpose  of  this  report  is  to  describe  the  CMS  software  in  the 
time  sharing  environment  of  MITRE  Washington's  Computer  Center. 
Currently,  CMS  is  housed  in  an  IBM  4341  computer  with  VM/SP 

operating  system.  CMS  employs  the  IBM’s  Display  Management  System 
(DMS)  software  package  that  provides  full  screen  menu  type 
displays.  The  display  terminals  used  by  CMS  are  IBM's  3270  series 
or  equivalent.  The  CMS  software  is  written  exclusively  in  PL/I  and 
complies  fully  with  top-down  structured  programming  techniques. 

CMS  has  been  designed  to  facilitate  manual  data  entry,  since 
automated  Inputs  are  not  yet  readily  available.  CMS  is  available 
for  interactive  access  by  the  tower  and  radar  room  personnel  who 
normally  monitor  and  report  changes  in  the  airport  operational 
environment.  These  users  are:  the  Assistant  Chief  (AC),  who  has 
the  primary  responsibility  for  configuration  selection;  the  team 
supervisor  of  the  tower  cab  (CAB),  who  provides  operational 

information  (wind,  weather,  runway  conditions)  to  the  system;  and 

the  Airways  Facilities  operations  officer  (AF),  who  is  responsible 
for  the  runway  equipment  status.  The  interactions  between  these 
users  and  CMS  are  illustrated  in  Figure  A. 

Because  of  the  limitations  of  the  time-sharing  system  under  which 
CMS  is  currently  operating,  these  three  different  users  can  only  be 
supported  by  three  separate  programs.  These  programs  are  compiled 
and  stored  separately  and  operate  independently,  but  communicate 

through  a  common  data  base  which  contains  all  information  on  O'Hare 
status  over  the  planning  horizon. 
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When  CMS  is  implemented  at 
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O'  Hare,  it  will  operate  on  a  dedicated  mini-computer  which  permits 
multi-tasking  (that  is,  multiple  users  interacting  with  a  single 
program  simultaneously).  This  will  eliminate  the  need  for  three 
separate  programs;  certain  changes  to  the  program  structure  will  be 
required  to  make  best  use  of  the  multi-tasking  environment,  but  the 
basic  CMS  logic  will  not  be  affected. 

Each  program  within  the  CMS  software  package  supports  a  set  of  data 
"screens”,  each  containing  a  predetermined  subset  of  information  for 
input  or  display.  An  example  of  a  CMS  screen  is  given  in  Figure  B. 
Table  A  contains  a  list  of  display  screens  within  the  CMS  software. 
In  some  cases  there  is  an  overlap  of  information  among  several 
screens.  Although  the  screens  are  not  mutually  independent  (i.e., 
changes  in  one  screen  may  affect  the  contents  of  the  others),  they 
are  self-contained  in  that  they  serve  a  specific  purpose  and  are 
acted  upon  separately. 

The  screens  provide  a  convenient  format  for  entering  data  on  the 
current  and  future  operating  environment  at  O'Hare.  This  includes 
information  on  wind  speed  and  direction,  ceiling  and  visibility, 
runway  surface  conditions,  status  of  runway  landing  aids,  and  the 
expected  volume  and  distribution  of  traffic.  This  information  is 
then  used  by  CMS  to  determine  the  operational  availability  of 
individual  runways.  The  operational  suitability  of  the  runway 
configurations  is  then  determined,  based  upon  runway  availability 
and  other  operational  factors;  and  the  configurations  are  ranked 
according  to  their  capacities,  based  upon  projected  demand  for  the 
next  hour.  The  penalty  of  transitioning  from  current  configuration, 
in  terms  of  capacity  during  the  transition  period,  is  also 
calculated  and  displayed.  This  yields  the  primary  output  of  the 
runway  configurations  management  system  —  an  ordered  list  of 
transition  strategies  indicating  which  runways  to  use  at  what  times 
during  the  planning  period. 

Volume  I  of  this  report  defines  the  major  subsystems  within  the  CMS 
software  package,  discusses  the  overall  control  and  architecture  of 
the  CMS  software,  and  describes  the  software  logic  pertaining  to 
each  component.  "High-level”,  English-like  pseudocode  is  used  to 
describe  the  CMS  software.  Pseudocode  is  used  because  it  can 
provide  a  clear.  English-like  description  which  is  believed  superior 
to  flowcharts  for  conveying  complex  logic  to  the  reader,  while  still 
maintaining  a  formal  structure. 

Volume  II  contains  the  "low-level”,  variable  specification 
pseudocode,  in  order  to  provide  a  detailed  description  of  the 
software. 
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1 .  INTRODUCTION 


The  O'Hare  Runway  Configuration  Management  System  (CMS)  Is  an 
Interactive  multi-user  computer  system  designed  to  aid  the 
O'Hare  management  personnel  in  the  consistent  selection  of 
runway  configurations  in  order  to  reduce  aircraft  delays.  CMS 
is  also  used  for  the  purpose  of  communicating  and  disseminating 
information  about  the  airport  among  the  various  tower  and  Termi¬ 
nal  Radar  Control  Facility  (TRACON)  personnel. 

This  set  of  reports  in  two  volumes  describes  the  software 
description  of  the  existing  CMS  at  the  MITRE  Washington's 
Computer  Center,  where  it  resides  in  a  time  share  mode  on  an  IBM 
4341.  Volume  I  contains  the  technical  description  and  the  high 
level  pseudocode. 

This  document,  Volume  II,  contains  the  detailed  description  of 
CMS  software  in  the  form  of  low-level  pseudocode. 
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2.  CMS  SOFTWARE  LOGIC  (LOW  LEVEL  PSEUDOCODES) 


This  appendix  is  dedicated  to  detailed  description  of  the  CMS 
software  logic  via  the  use  of  low  level  pseudocodes.  There  are 
sixteen  separate  modules  given  here,  as  follows: 

2.1.  System  data  structures 

2.2.  High  level  processing 

2.3.  O'Hare  status  summary  screen 

2.4.  Planning  log  selection  screen 

2.5.  Weather  and  wind  planning  log  screen 

2.6.  Airport  runway  surface  planning  log  screen 

2.7.  Equipment  planning  log  screen 

2.8.  Demand  planning  log  screen 

2.9.  Airport  status  screen 

2.10.  Runway  equipment  status  screen 

2.11.  Demand  profile  screen 

2.12.  Ordered  list  of  configurations  screen 

2.13.  Departure  queue  screen 

2.14.  Ordered  list  of  transitions  screen 

2.15.  Configuration  information  screen 

2.16.  Menu  and  parameter  screens 

The  high  level  pseudocodes  and  a  cross-reference  table  for  both 
low  and  high  level  pseudocodes  are  located  in  Appendix  A  of 
Volume  I. 


2.1  System  Data  Structures 

System  Data  Structures  are  described  on  pages  2-2  to  2-58. 
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[VARIABLES  PERTAINING  TO  PROGRAM  FUNCTION  KEYS] 

BITS  PP1  [8  bit  variable  aet  to  '11110001'B,  Invokes  O'Hare  statup  tuaaary  screen] 

BITS  PF2  (8  bit  variable  set  to  'llllOOlO'B,  Invokes  planning  log  selection  screen) 

BITS  PF3  (8  bit  variable  aet  to  '11110011'8,  Invokes  current  and  forecast  airport  status  screens] 

BITS  PF4  [8  bit  variable  set  to  '11110100'B,  Invokes  current  and  forecast  airport  status  screens] 

BITS  PFS  (8  bit  variable  set  to  'UUOIOI'B,  Invokes  current  and  forecast  deaand  profile  screens] 

BITS  PF6  [8  bit  variable  set  to  '11110110'B,  Invokes  current  and  forecast  ordered  list  of 

configurations  screens] 

BITS  PF7  [8  bit  variable  set  to  '11110111'B,  Invokes  current  departure  queue  screen] 

BITS  PF8  [8  bit  variable  set  to  'lllllOOO'B,  Invokes  ordered  list  of  transition  screen] 

BITS  PF9  [8  bit  variable  set  to  '11111001'B,  Invokes  current  and  forecast  configuration  intonation 

screen] 

BITS  PF10  [8  bit  variable  aet  to  '01111010'B,  la  used  for  'acknowledge'  and/or  'screen  update  functions] 

BITS  PF11  (8  bit  variable  set  to  '01111011'B,  invokes  prograa  function/aenu  prograa  termination  and 

paraaetera  screensj 

BITS  PF12  [8  bit  variable  set  to  '01111100'B,  is  usad  for  'return  to  previously  stored  screen’  function] 

BITS  PF13  [8  bit  variable  set  to  '11000001 'B,  Invokes  weather  end  wind  planning  log  screen) 

BITS  PF14  (8  bit  variable  set  to  ' 10000010' B,  Invokes  airport  runway  and  surface  planning  log  screen) 

BITS  PF15  •  (8  bit  variable  set  to  '11000011'B,  Invokes  equlpaant  planning  log  screen] 

BITS  PF16  [8  bit  variable  set  to  '11000100'B,  Invokes  deaand  planning  log  screen] 

BITS  PAI  (8  bit  variable  set  to  '01101100'B,  Is  used  for  stopping  prograa  under  ebnorawl  conditions] 

BITS  ENTER  (8  bit  variable  set  to  '01111101'B,  la  used  to  signal  screen  Inputs] 
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[* ^CONFIGURATION  REQUIREMENTS***) 

STRUCTURE  CNFGRQ  <7 3) 

BITS  ID  (24  bit  configuration  ID,  where  1  Indicates  that  a  particular  runway  belongs  to  this 

configuration.  First  12  bits  used  for  arrival  runways,  rest  for  departure  runways  starting 
with  4R  to  32L] 

CHR  ARR_RWY  (3)  [character  representation  of  arrival  (length  3)  runways  In  a  configuration,  e.g., 

4RJ 

CHR  DEP_RWY  (4)  (character  representation  (length  3)  of  departure  runways  In  a  configuration, 

e.g..  «■) 

I NT  NORTH  (Integer  Index  used  for  accessing  a  particular  north  complex  capacity  curve  f tom  capacity 
flies) 

INT  SOUTH  [Integer  Index  used  for  accessing  a  particular  south  complex  capacity  curve  f row 
capacity  files) 

INT  ARR(6)  [Integers  Indicating  fix  to  runway  assignment  for  a  particular  configuration.  Indices  1 
through  6  signify  arrival  fixes,  1-KUBBS,  2-PLANT,  3-CCT,  4-VAINS,  3-FARMt,  6-NILUAUKEE; 
contents  of  array  holds  nuwbers  Indicating  arrival  runways,  1-4R,  2-4L, . . . , 12-32L) 

INT  DEP(5)  (Integers  Indicating  fix  to  runway  assignments  for  a  particular  configuration.  Indices  1 
through  5  signify  departure  fixes,  1-NORTH,  2-SOUTH,  3-EAST,  4-WEST,  5 -MILWAUKEE; 
contents  of  array  holds  numbers  indicating  departure  runways,  1-4R,  2-4L,  ...,  12-32L) 

ENDSTRUCTURE; 
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[•••OFFICIAL  AIRLINE  GUIDE  DEMAND  INFORMATION***] 

STRUCTURE  OAGDEM 
GROUP  TABLE  (0.23) 

CHK  GMT  [character  representation  (length  4)  of  tinea  associated  with  demand  Information  given  In 
Greenwich  Mean  Tine] 

CHR  TTLARR  (character  representation  (length  3)  of  total  arrival  demand] 

CUR  TCLDEP  (character  repreaentatlon  (length  3)  of  total  departure  demand] 

CHR  KUBBS  (character  repreaentatlon  (length  3)  of  arrival  denand  at  fix  EUBBS] 

CHR  CGT  (character  representation  (length  3)  of  arrival  denand  at  fix  CGT] 

CHR  VAINS  (character  representation  (length  3)  of  arrival  denand  at  fix  VAIHS] 

CHR  FARMM  [character  representation  (length  3)  of  arrival  demand  at  fix  FARMM) 

CHR  NORTH  [character  representation  (length  3)  of  departure  denand  at  NORTH  fix] 

CHR  EAST  [character  representation  (length  3)  of  departure  denand  at  EAST  fix] 

CHR  SOUTH  (character  representation  (length  3)  of  departure  denand  at  SOUTH  fix) 

CHR  NEST  (3  bit  character  representation  (length  3)  of  departure  denand  at  WEST  fix] 


ENDSTRUCTURE; 


I ‘“CAPACITY  DATA***) 

STRUCTURE  CAPFILE  (A)  (four  capacity  fllea:  VFR  DRY,  VFR  MET,  IFR  DRY,  IFR  WET) 

GROUP  KEY(SO)  [80  distinct  capacity  curves) 

INT  PNUM  [Integer  Indicating  number  of  points  describing  a  particular  curve) 

FIT  CAP(IA)  (capacity  points) 

ENDSTRUCTURE; 

(•“DEPENDENCE  MATRIX  DATA***) 

STRUCTURE  DEPMAT(Z)  (2  dependence  matrices :  VFR,  IFR) 

GROUP  SECT(A)  [A  partitions:  ARR/ARR,  ARR/DEP,  DEP/ARR,  DEP/DEP) 

PLT  MATRIX  (12,12)  [individual  dependence  matrix  entries] 

ENDSTRUCTURE; 

[“•TRAVEL  TIME  DATA***) 

FLT  PIXTRAV  (73,3,6)  (73  conf iguratloos ,  up  to  3  arrival  runways,  6  arrival  fixes.  If  a  fix  does 

not  feed  a  particular  runway  entry  la  xero) 
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(***RUNHAY  MINIMA  PARAMETERS***] 

STRUCTURE  RtiYMIN  (12)  (for  each  of  12  runways] 

GROUP  CAT  II  (pertaining  to  CAT  II] 

CROUP  NONE 

PLT  CEIL  (celling  alnlaa  with  CATII  operable] 

PLT  VIS  (visibility  alnlaa  with  CATII  operable] 

CROUP  ILS  [pertaining  to  ILS] 

CROUP  NONE 

PLT  CEIL  (celling  alnlaa  with  both  localizer  and  glide  slope  operable] 

PLT  VIS  [visibility  alnlaa  with  both  localizer  and  glide  slope  operable] 

CROUP  MM  (pertaining  to  alddle  aarker] 

PLT  CEIL  (celling  alnlaa  with  both  localizer  and  glide  slope  operable  and  alddle  aarker 
Inoperable] 

PLT  VIS  [visibility  alnlaa  with  both  localizer  and  glide  slope  operable  and  alddle  aarker 
Inoperable] 

CROUP  RAILALS  (pertaining  to  RAIL  and  ALS) 

PLT  CEIL  [celling  alnlaa  with  both  localizer  and  glide  slope  operable,  RAIL  and  ALS 
Inoperable] 

PLT  VIS  [visibility  alnlaa  with  both  localizer  and  glide  slope  operable,  RAIL  and  ALS 
Inoperable] 


GROUP  TDZ  (pertaining  to  TDZ| 

PLT  CEIL  | celling  alnlaa  with  both  localleer  end  glide  elope  operable.  TDZ  InoperebleJ 
GROUP  CL  (pertaining  to  CL| 

PLT  CEIL  (celling  alnlaa  with  both  localleer  and  glide  elope  operable.  CL  inoperable) 
FLT  VIS  (vlalblllty  alnlaa  with  both  locelleer  end  glide  elope  operable,  CL  Inoperable) 

GROUP  LOC  [pertaining  to  locelleer) 

CROUP  NOME 

PLT  CEIL  (celling  alnlaa  with  locelleer  operable  end  glide  elope  Inoperable] 

PLT  VIS  (vlalblllty  alnlaa  with  locelleer  operable  end  glide  elope  Inoperable] 

GROUP  )M  (pertaining  to  Biddle  Barker) 

PLT  CEIL  [celling  Biniaa  with  locallcer  operable,  glide  elope  and  alddle  Barker 
Inoperable] 

PLT  VIS  (vlalblllty  alnlaa  with  loc.lleer  operable,  glide  elope  and  -lddle  Barker 
inoperable] 

GROUP  RAIL  (pertaining  to  RAIL] 

PLT  CEIL  (celling  alnlaa  with  localleer  operable,  glide  elope  and  RAIL  Inoperable] 

PLT  VIS  [vlalblllty  alnlaa  with  localleer  operable,  glide  elope  and  RAIL  Inoperable] 
GROUP  ALS  (pertaining  to  ALS] 

PLT  CEIL  (celling  alnlaa  with  localleer  operable,  glide  aiope  and  ALS  Inoperable) 
riT  VIS  (vlalblllty  alnlaa  with  localleer  operable,  glide  elope  and  ALS  Inoperable] 


CROUP  NDBVOR  (pertaining  to  HDB_VOR] 

CROUP  HONE 

FIT  CEIL  (celling  alnlaa  with  localizer  Inoperable  and  NDBVOR  operable] 

FLT  VIS  (vlalblllty  alnlaa  with  localizer  Inoperable  and  HDB_VOR  operable] 

GROUP  RAIL  [pertaining  to  RAIL] 

FLT  CEIL  (celling  alnlaa  with  HDB_VOR  operable,  localizer  and  RAIL  inoperable] 
FLT  VIS  (vlalblllty  alnlaa  with  NDB_VOR  operable,  localizer  and  RAIL  Inoperable] 
CROUP  ALS  [pertaining  to  ALSJ 

FLT  CEIL  (celling  alnlaa  with  HDB_VOR  operable,  localizer  and  ALS  Inoperable  1 
FLT  VIS  [vlalblllty  alnlaa  with  HDB_VOR  operable,  localizer  and  ALS  Inoperable] 


EHDSTRUCTOBE; 


[AIRPORT  STATUS  INFORMATION  FOR  SCREEN  USE) 

STRUCTURE  APTSTAT  {2)  [2  environment* :current .forecast ) 

CHR  TIME  (character  representation  (length  8)  of  environment:  'CURRENT'  or  'FORECAST'] 
CROUP  UX  [weather  information) 

CHR  CEIL  (character  representation  (length  4)  of  prevailing  centerfleld  celling) 

CHR  VIS  (character  representation  (length  4)  of  prevailing  centerfleld  visibility) 
CROUP  HIND  [wind  Information) 

CHR  DIR  [character  representation  (length  3)  of  centerfleld  wind  direction) 

CHR  VEL  [character  representation  (length  3)  of  centerfleld  wind  velocity) 

CROUP  RUNWAY  (12)  [12  runways) 

CROUP  TOWER  [tower  Imposed  runway  conditions) 

CHR  ARR  [character  representation  (length  2)  of  runway  closures  for  arrivals) 
CHR  DEP  [character  representation  (length  2)  of  runway  closure*  for  departures) 
CROUP  other_runway_lnformatlon 

CHR  SURF  (character  representation  (length  2)  of  runway  surface  conditions) 

CHR  BRK  (character  representation  (length  2)  of  runway  braking  conditions) 

CHR  RVR  (character  representation  (length  2)  of  runway  RVR  reading) 

CHR  DIR  (character  representation  (length  3)  of  runway  wind  direction) 
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CHR  VEL  (character  repraaentatlon  (length  2)  of  runway  wind  velocity) 

CHR  CRSS  (character  repreaentatlon  (length  2)  of  runway  croaawlnd  component] 

CHR  TAIL  (character  repreaentatlon  (length  2)  of  runway  tailwind  component) 

CHR  CEIL  (character  repreaentatlon  (length  A)  of  runway  celling  alnlma) 

CHR  VIS  (character  repreaentatlon  (length  4)  of  runway  vlalblllty  atnlea] 

CROUP  CLOSED  [overall  runway  cloaurec] 

CHR  ARE  [character  repreaentatlon  (length  2)  of  arrival  runway  cloaures] 
CHR  DEP  [character  repreaentatlon  (length  2)  of  departure  runway  cloaurea] 


EHDSTRUCTURE ; 


(MIDWAY  AIRPORT  OPERATIONS  INDICATOR  FOR  SCREEN  USE] 

CHR  MIDFLAG  (2)  (character  repreaentatlon  (length  2)  of  a  flag  Indicating  operation  of  runway  13R  at 
MIDWAY  airport  for  both  current  and  forecaat  environments] 

(AIRPORT  STATUS  DATA  FOR  SCREEN  USE] 

STRUCTURE  CNVTAPT  (2)  [2  environments:  current,  forecast] 

CROUP  WX  [weather  data] 

FIT  CEIL  [prevailing  airport  celling] 

FLT  VIS  (prevailing  airport  visibility] 

CROUP  WIND  [wind  data] 

FLT  DIR  (airport's  centerfleld  wind  direction] 

FLT  VEL  (airport's  centerfleld  wind  velocity] 

CROUP  RUNWAY  (12)  (12  runways] 

FLT  RVR  (runway's  RVR  reading] 

FLT  DIR  [runway's  wind  direction] 

FLT  VEL  (runway's  wind  velocity] 

FLT  CRSS  (runway's  crosswind  component] 

FLT  TAIL  (runway's  tailwind  component] 

FLT  CEIL  (runway's  ceiling  minima] 

FLT  VIS  [runway's  visibility  minima] 

ENDSTRUCTURE; 
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(RUNWAY  EQUIPMENT  STATUS  INFORMATION  FOR  SCREEN  USE) 

STRUCTURE  RWYEQP  (2)  (2  environments:  current .forecast) 

CHR  TIME  [character  representation  (length  8)  of  environment :  'CURRENT' ,  'FORECAST'] 

CROUP  RUNWAY  (12)  [12  runways) 

CHR  CAT  II  (character  Indicator  (length  2)  for  status  of  CAT  II) 

CHR  LOC  (character  Indicator  (length  2)  for  status  of  localises) 

CHR  GS  (character  Indicator  (length  2)  for  status  of  glide  slope) 

CHR  OM  [character  Indicator  (length  2)  for  status  of  outer  aarkar] 

'  CHR  MM  (character  Indicator  (length  2)  for  status  of  Biddle  Barker] 

CHR  IN  [character  Indicator  (length  2)  for  status  of  Inner  Barker) 

CHR  RAIL  [character  Indicator  (length  2)  for  status  of  runway  alignment  Indicator  lights) 

CHR  ALS  (character  Indicator  (langth  2)  for  status  of  approach  lighting  syatea) 

CHR  RVR  [character  Indicator  (length  2)  for  status  of  runway  visual  range) 

CHR  HIRL  [character  Indicator  (length  2)  for  status  of  high  Intensity  runway  lights) 

CM  CL  (character  Indicator  (length  2)  for  status  of  centerline  lights) 

CHR  TDZ  [character  Indicator  (length  2)  for  status  of  touchdown  cone) 

CM  NDB_VOR  (character  Indicator  (length  2)  for  atatua  of  non-directlonal  beacon/VHF 
omni-directional  range) 

CHR  MSG  [character  field  (length  80)  reserved  for  screen  sassages) 


EHDSTRUCTURE; 
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(DEMAND  PROFILE  INFORMATION  FOR  SCREEN  USE) 

STRUCTURE  DEMAND  (2)  (2  environments :  current,  forecest) 

CHR  TIME  (character  representation  (length  8)  of  environment:  'CURRENT',  'FORECAST  ) 
CROUP  ARR  (arrival  demand  Information) 

CHR  TOTAL  (character  representation  (length  A)  of  total  arrival  demand) 

CHR  KUBBS  (character  representation  (length  A)  of  arrival  demand  at  ft*  KUBBS) 

CHR  PLANT  (character  representation  (length  A)  of  arrival  demand  at  fi*  PLANT) 

CHR  CCT  (character  representation  (length  A)  of  arrival  demand  at  fix  OCT) 

CHR  VAINS  (character  representation  (length  A)  of  arrival  demand  at  fix  VAINS) 

CHR  FARMM  (character  representation  (length  A)  of  arrival  demand  at  fix  FARMMJ 

CHR  MKE_A  (character  representation  (length  A)  of  arrival  demand  at  fix  MILWAUKEE) 

CROUP  DEP  (departure  demand  information) 

CHR  TOTAL  (character  representation  (length  A)  of  total  departure  demand  TOTAL  fix) 
CHR  NORTH  (character  representation  (length  A)  of  departure  demand  at  NORTH  fix) 
CHR  EAST  (character  representation  (length  A)  of  departure  demand  at  EAST  fix) 

CHR  SOUTH  (character  representation  (length  A)  of  departure  demand  at  SOUTH  fix] 
CHR  NEST  (character  representation  (length  A)  of  departure  demand  at  WEST  fix) 

CHR  MSC  (character  field  (length  80)  reserved  for  screen  messages) 


ENDSTRUCTURZ; 


(DEMAND  PROFILE  DATA  FOR  SCREEN  USE] 


STRUCTURE  CNVTDEM  (2)  (2  environments :  current .forecast] 

CROUP  ARE  (arrival  demand] 

PLT  TOTAL  (total  arrival  demand] 

PLT  KUBBS  [arrival  demand  at  fix  KUBBS] 

PLT  PLANT  (arrival  demand  at  fix  PLANT] 

PLT  CCT  (arrival  demand  at  fix  CCT] 

PLT  VAINS  (arrival  demand  at  fix  VAINS] 

PLT  FAR1M  (arrival  demand  at  fix  FAR1M] 

PLT  MKEA  (arrival  demand  at  fix  MILWAUKEE) 
CROUP  DEP  (departure  demand] 

PLT  TOTAL  [total  departure  demand] 

PLT  NORTH  (departure  demand  at  NORTH  fix] 

PLT  EAST  (departure  demand  at  EAST  fix] 

PLT  SOUTH  (departure  demand  at  SOUTH  fix] 

PLT  NEST  (departure  demand  at  HEST  fix) 

PLT  MKE_D  (departure  demand  at  MILWAUKEE  fix] 
ENDSTRUCTURE ; 


[CONFIGURATION  INFORMATION  SCREEN  INFORMATION] 

STRUCTURE  CONFIG  (2)  (2  environments :  current,  forecast) 

CHE  TIME  (character  representation  (length  8)  of  environment!  'CURRENT',  'FORECAST'} 

GROUP  CONF 

CHR  ARR  (12)  [character  representation  (length  2)  of  configuration  Indicator  for  arrival  runways) 
CHR  DEP  (12)  [character  representation  (length  2)  of  departure  runways) 

CROUP  TOTAL  (entire  airport] 

CHR  PCT_ARR  (character  representation  (length  3)  of  alrport'a  percentage  of  arrivals] 

CHR  SAT  [character  representation  (length  4)  of  alrport'a  saturation  level] 

CROUP  ARR 

CHR  DEM  [character  representation  (length  3)  of  alrport'a  arrival  demand] 

CHR  CAP  [character  representation  (length  3)  of  airport's  arrival  capacity) 

CROUP  DEP 

CHR  DEM  [character  representation  (length  3)  of  airport's  departure  demand) 

CHR  CAP  (character  representation  (length  3)  of  airport's  departure  capacity] 

CROUP  NORTH 

CHR  PCT_ARR  [character  representation  (length  3)  of  percentage  of  arrivals  for  airport's  north  complex] 
CHR  SAT  (character  representation  (length  4)  of  saturation  level  for  airport's  north  complex] 

CROUP  ARR 

CHR  OEM  [character  representation  (length  3)  of  arrival  demand  for  airport's  north  complex) 

CHR  CAP  (character  representation  (length  3)  of  arrival  capacity  for  airport's  north  complex] 
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GROUP  DEP 

CHR  DEM  [character  representation  (length  3)  of  departure  deaand  for  airport's  north  coaplex] 

CHR  CAP  [character  representation  (length  3)  of  departure  capacity  for  airport's  north  coaplex) 

CROUP  SOUTH 

CHR  PCTARR  [character  representation  (length  3)  of  percentage  of  arrivals  for  airport's  south  coaplex) 

CHR  SAT  (character  representation  (length  4)  of  saturation  level  for  airport's  south  coaplex] 

CROUP  ARR 

CHR  DEM  (character  representation  (length  3)  of  arrival  demand  for  airport's  south  coaplex] 

CHR  CAP  (character  representation  (length  3)  of  arrival  capacity  for  airport's  south  coaplex] 

CROUP  DEP 

CHR  DEM  [character  representation  (length  3)  of  departure  deaand  for  airport's  south  coaplex] 

CHR  CAP  [character  representation  (length  3)  of  departure  capacity  for  airport's  south  coaplex] 

CROUP  BALANCING  [deaand  balancing  Information) 

CHR  AMOVE  [character  representation  (length  3)  of  nuaber  of  arrivals  aoved  froa  one  coaplt.i  to 
other  for  purpose  of  dsaand  balancing] 

CHR  ACOMPLEX  (character  representation  coaplex  to  which  arrivals  are  aoved] 

CHR  DMOVE  (character  representation  (length  3)  of  nuaber  of  departures  aoved  froa  one  coaplex  to 

other  for  purpose  of  deaand  balancing] 

CHR  DCOMPLEX  (character  representation  (length  5)  of  coaplex  to  which  departures  are  aoved] 

CHR  VMSCO  [character  field  (length  80)  reserved  for  user  warning  aessagas) 

CHR  UMSG1  [character  field  (length  80)  reserved  for  user  warning  aessagas) 

CHR  WMSC2  (character  field  (length  80)  reserved  for  user  warning  aessagas] 

CHR  MSG  (character  field  (length  80)  reserved  for  screen  aessages) 

ENDSTRUCTURE; 


| CONFIGURATION  INDEX  FOR  CMS  USX1 

INT  CONFIND  (2)  (integer  Index  indicating  operating  configuration  in  current  and  forecaet  environment) 

[ORDERED  LIST  OF  CONFIGURATIONS  INFORMATION  FOR  SCREEN  USE] 

STRUCTURE  CONFLST(2)  (2  environments :  current,  forecaat] 

CHR  TINE  [character  repreaentation  (length  8)  of  environment:  'CURRENT' , 'FORECAST' ] 

CHR  TOT  ARR  [character  repreaentation  (length  3)  of  airport 'a  percentage  of  arrlvala) 

CHR  NUMBER  (character  repreaentat ion  (length  3)  of  niaber  of  eligible  configurational 

CHR  SCROLL  [character  repreaentation  (length  *)  of  acreen  acroll  number] 

CROUP  CONFIG  (73)  (up  to  73  eligible  conflguratlone] 

CHR  SELECT  (character  repreaentation  (length  1)  uaed  to  indicate  and  aalect  a  new  current 
—  configuration) 

CHR  RANK  (character  repreaentation  (length  2)  of  rank  of  a  particular  configuration  in 
ordered  liat  of  configurational 

CHR  ARR  (3)  (character  repreaentation  (length  3)  of  arrival  runuaya  in  a  particular 
configuration) 

CHR  DEP  (A)  (character  repreaentation  (length  3)  of  departure  rumnya  in  a  particular  configuration] 

CHR  CAPACITY  [character  repreaentation  (length  5)  of  capacity  of  a  particular  configuration] 

CHR  REMARXS  (character  of  remarke  field  (length  27)  uaed  for  additional  Information  on  each 
configuration] 

CHR  MSG  (character  field  (length  80)  raaerved  for  acreen  meaaagea) 


END8TRUCTU  RE ; 


[ORDERED  LIST  OF  TRANSITIONS  INFORMATION  FOR  SCREEN  USE| 

STRUCTURE  TRANLST 

CHE  PCTARR  (character  repreaentatloo  (length  3)  of  airport 'a  percentage  of  arrlvala  for  forecaat 
’  environment] 

CHR  NUMJELIG  (character  repreaentatloo  (length  3)  of  number  of  eligible  configuration  In  forecaat 
environment] 

CHR  SCROLL  (character  repreaentatloo  (length  A)  of  acreen  acroll  nuaber] 

CHR  ARR  (3)  [character  repreaentatloo  (length  3)  of  current  conf lguratlon'a  arrival  runway a, 
e.g.,  HR,  U  (up  to  3  arrival  runwaye)] 

CHR  DEP  (character  repreaentatloo  (length  3)  of  current  conflguratlon'a  departure  runwaye,  e.g., 

HR,  32L,  (up  to  A  departure  runwaye)) 

CHR  CTRANHE  (character  repreaentatloo  (length  5)  of  current  conflguratloo’e  tranaltlon  hour  capacity] 

CHR  CFINCAP  (character  repreaentatloo  (length  5)  of  current  conflguratlon'a  capacity  in  forecaat 

N  environment] 

I 

oo  GROUP  CONFIG  (73)  (73  poealble  configurational 

CHR  RANC  (character  repreaentatloo  (length  3)  of  rank  of  a  particular  configuration  In  ordered 
llat  of  tranaltlona] 

CHR  ARR(3)  (character  repreaentatloo  (length  3)  of  forecaat  conflguratlon'a  arrival  runwaya, 
e.g.,  1AR,  AR,  up  to  3  arrival  runwaya) 

CHR  DEP(A)  (character  repreaentatloo  (length  3)  of  forecaat  conflguratlon’a  departure 
.  e.g.,  32R,  32L,  runwaya,  (up  to  A  departure  runwaya)) 

CHR  MINUTES  (character  repreaentetlon  (length  2)  of  tranaltlon  duration] 

CHR  HOURLY  [character  repreaentatloo  (length  5)  of  tranaltlon  hour  capacity  for  a 
configuration  eligible  In  forecaat  envlrooaent) 

CHR  FINCAP  [character  repreaentatloo  (length  5)  of  a  forecaat  conflguratlon'a  capacity  In 
forecaat  environment ) 

CHR  MSG  (character  field  (length  80)  reaerved  for  acreen  neaaagea) 


END STRUCTURE: 
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(RUNWAY  EQUIPMENT  PLANNING  LOG  INFORMATION  FOR  SCREEN  USE) 

STRUCTURE  EQPLOG 

GROUP  TABLE  (15)  (up  to  15  lines  of  log  entries] 

CHR  RWY  (character  representation  (length  3)  of  runway  used  in  log  entry,  e.g..  14R] 

CHR  EQUIPMENT  (character  field  (length  11)  reserved  for  equipaent  naae  used  in  equipment  log] 

CHR  OTS  (character  representation  (length  4)  of  "OUT  OP  SERVICE"  tines  used  in  equipaent  log] 

CHR  RTS  (character  representation  (length  4)  of  "RETURN  TO  SERVICE"  tlaes  used  in  equipaent  log | 

CHR  REMARKS  [character  field  (length  39)  reserved  for  free  formatted  coaaents  used  in 
equipaent  log] 

CHR  MSG  (character  field  (length  80)  reserved  for  screen  aessages] 

E RESTRUCTURE; 

(RUNWAY  EQUIPMENT  PLANNING  LOG  DATA  FOR  SCREW  USE] 

STRUCTURE  CNVTEQP 

CROUP  TABLE  (15)  (up  to  15  lines  of  log  entries] 

INT  OTS  (integer  representing  "OUT  OF  SERVICE"  tlae  used  In  equipaent  log) 

I NT  RTS  (Integer  representing  "RETURN  TO  SERVICE"  time  used  In  equipaent  log] 

EMDSTRUCTURE ; 
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[WEATHER  AND  WIND  PLANNING  LOG  INFORMATION  FOR  SCREEN  USE) 

STRUCTURE  WXLOG 

GROUP  TABLE  (13)  (up  to  13  11ms  of  log  eotrles) 

CHR  TIME  [character  representation  (length  4)  of  ti«e  used  in  weather  and  wind  planning  log] 

CUR  CEIL  (character  representation  (length  3)  of  celling  used  in  weather  and  wind  log) 

CHR  VIS  [character  representation  (length  3)  of  visibility  used  In  weather  and  log) 

CHR  DIR  [character  representation  (length  5)  of  wind  direction  used  In  weather  and  wind  log] 

CHR  VEL  (character  representation  (length  3)  of  wind  velocity  used  in  weather  and  wind  log] 

CHR  REMARKS  [character  field  (length  33)  reserved  for  f ree_fomatted  coewnts  used  in 
weather  and  wind  log] 

CHR  MSG  (character  field  (length  80)  reserved  for  screen  Messages] 


ENDSTRUCTURE; 
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[WEATHER  AND  WIND  PLANNING  LOG  DATA  POR  SCREEN  USE] 

STRUCTURE  CNVTVX 

GROUP  TABLE  (13)  [up  to  13  log  entries] 

INT  TIME  [Integer  representing  tine  used  in  weather  and  wind  planning  log] 

FLT  CEIL  (floating  point  variable  used  to  represent  value  of  celling  In  weather  and  wind 
planning  log] 

FLT  VIS  (floating  point  variable  used  to  represent  value  of  visibility  In  weather  and 
wind  planning  log] 

FLT  DIR  (floating  point  variable  used  to  represent  value  of  wind  direction  In  weather 
and  wind  planning  log] 

FLT  VEL  (floating  point  variable  used  to  represent  value  of  wind  velocity  In  weather  and 
wind  planning  log] 

EHDSTRUCTURE; 
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[RUNWAY  SURFACE  CONDITIONS  PLANNING  LOG  INFORMATION  FOR  SCREEN  USE) 

STRUCTURE  SURFLOG 

GROUP  TABLE  (13)  (up  to  13  log  entries) 

CHR  TIME  (character  representation  (length  4)  of  tine  used  In  weather  and  wind  planning  log) 

CHR  RVY  [character  representation  (length  3)  of  a  runway  In  an  entry  In  runway  surface 
conditions  planning  log] 

CHR  SURF  (character  field  (length  3)  reserved  for  description  of  runway  surface  conditions 
in  runway  surface  conditions  planning  log] 

CHR  BRAE  (character  field  (length  3)  reserved  for  description  of  runway  braking  conditions 
in  runway  surface  conditions  planning  log) 

CHR  CLOSED  [character  field  (length  6)  reserved  for  information  on  runway  closures  on  the 
runway  surface  conditions  planning  log] 

CHR  OPEN  [character  field  (length  6)  reserved  for  Information  on  runway  openings  on  the 
runway  surface  conditions  planning  log) 

CHR  REMARKS  [character  field  (length  27)  reserved  for  free  formatted  comments  used  in  runway 
surface  conditions  planning  log) 

CHR  MSG  (character  field  (length  80)  reserved  for  screen  messages] 

ENDSTRUCTURB; 

[RUNWAY  SURFACE  CONDITIONS  PLANNING  LOG  DATA  FOR  SCREEN  USE] 

STRUCTURE  CNVTSRF 

CROUP  TABU  (13)  [up  to  13  log  entries] 

I NT  TIME  (integer  representing  time  used  in  runway  surface  conditions  planning  log] 
EMDSTBUCTUR1; 
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[DEMAND  PLANNING  LOG  INFORMATION  FOR  SCREEN  USE) 

STRUCTURE  OACLOC 

CHR  INITIAL  [character  field  (length  2)  uaed  to  Initialize  demand  planning  log  acreen  with 
nominal  demand  valuea  from  OAG  demand  file) 

CHR  SCROLL  (character  repreaentatlon  (length  A)  of  aeroll  number  uaed  on  demand  planning  log 
acreen [ 

GROUP  TABLE  (0:23)  [2A  houra  of  demand  data  available  on  if  ana  nil  planning  acreen] 

CHR  GMT  (character  repreaentatlon  (length  4)  of  time  (hour)  for  demand  Information) 

CHR  TTIARE  (character  repreaentatlon  (length  3)  of  total  hourly  arrival  demand) 

CHR  TTLDEF  (character  repreaentatlon  (length  3)  of  total  hourly  departure  demand) 

CHR  KU11S  (character  repreaantatlon  (length  3)  of  hourly  arrival  demand  at  fix  KUBBS ] 
CHR  CCT  (character  repreaentatlon  (length  3)  of  hourly  arrival  demand  at  fix  CCT) 
cm  VAINS  (character  repreaentatlon  (length  3)  of  hourly  arrival  demand  at  fix  VAINS) 

cttt  FARMH  [character  representation  (length  3)  of  hourly  arrival  demand  at  fix  FARMN) 

r>a  NORTH  (character  representation  (length  3)  of  hourly  departure  demand  at  NORTH  fix) 

CHR  EAST  (character  representation  (length  3)  of  hourly  departure  demand  at  EAST  flx| 
CH*  SOUTH  (character  repreaentatlon  (length  3)  of  hourly  departure  demand  at  SOUTH  fix) 

CHR  WEST  (character  representation  (length  3)  of  hourly  departure  demand  at  WEST  fix] 

CHR  MSG  (character  field  (length  80)  reserved  for  screen  meaaage] 


EMDSTRUCTURE: 
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[DEMAND  PLANNING  LOG  DATA  FOR  SCREEN  USE] 


STRUCTURE  CNVTOAG 

I  NT  SCROLL  [Integer  representing  scroll  nuaber  for  dsaand  planning  log] 

CROUP  TABLE  (0:23)  (24  hours  of  demand  data  available  on  deaand  planning  acrean] 

I  NT  GMT  (Integer  value  of  tlae  (hour)  for  demand  information] 

FLT  TTLARR  (floating  point  value  of  total  hourly  arrival  deuaod] 

FLT  TTLDEP  [floating  point  value  of  total  hourly  departure  deoand ] 

FLT  KUBBS  [floating  point  value  of  hourly  arrival  deaand  at  fix  KUBBS] 

FLT  CCT  (floating  point  value  of  hourly  arrival  deaand  at  fix  CGT] 

FLT  VAINS  (floating  point  value  of  hourly  arrival  deaand  at  fix  VAINS) 

FLT  FARM  (floating  point  value  of  hourly  arrival  deaand  at  fix  FARM] 

FLT  NORTH  (floating  point  value  of  hourly  departure  deaand  at  NORTH  fix) 

FLT  EAST  [floating  point  value  of  hourly  departure  demand  at  EAST  fix) 

FLT  SOUTH  [floating  point  value  of  hourly  departure  deaand  at  SOUTH  fix) 

FLT  NEST  (floating  point  value  of  hourly  departure  deaand  at  NEST  fix) 
EHDSTRUCTURE ; 
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[PARAMETERS  INFORMATION  FOR  SCREEN  USE] 


STRUCTURE  PARAM 

CROUP  PARAMETER  (wind  thresholds] 

GROUP  ARR  [pertsinlng  to  srrivsls] 

CHR  CRSS  [character  representstlon  (length  4)  of  crosswind  coaponent  of  wind  thresholds] 

CUR  TAIL  (character  representation  (length  4)  of  tailwind  coaponent  of  wind  thresholds) 

CROUP  DEP  (pertsinlng  to  departures] 

CHR  CRSS  [character  representation  (length  4)  of  crosswlnd  coaponent  of  wind  thresholds) 

CHR  TAIL  [character  representstlon  (length  4)  of  tailwind  coaponent  of  wind  thresholds] 

CROUP  MSG  (character  field  (length  80)  reserved  for  screen  aeseagea) 

EMPSTRUCTURE; 


(PARAMETERS  SCREEN  DATA  FOR  SCREEN  USE] 

STRUCTURE  CNVTPRM 

CROUP  ARR  (wind  threeholds  for  arrivals] 

FLT  CRSS  (crosswlnd  coaponent  of  wind  threshold) 

FLT  TAIL  (tailwind  coaponent  of  wind  threshold] 

GROUP  DEP  (wind  thresholds  for  departures] 

FLT  CRSS  (crosswlnd  coaponent  of  wind  threshold) 

FLT  TAIL  [tailwind  coaponent  of  wind  threshold) 

EMPSTRUCTURE; 


! 


t 


t 
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[DEPARTURE  QUEUES  INFORMATION  FOE  SCEEEN  USE) 

STRUCTURE  QUELEN 

CTO  DEPRUM  (4)  (character  representation  (length  3)  of  current  conf lguratlon'a  departure  runuey.) 
CHR  QL  (4)  (character  representation  (length  2)  of  nuaber  of  aircraft  In  departure  queue) 

CHE  MSG  (character  field  (length  80)  reserved  for  screen  sassages) 

EtmSTRUCTURE; 

(DEPARTURE  QUEUES  DATA  FOR  SCREEN  USE) 

INT  CNVTQLN  (4)  [Integer  representing  length  of  depsrture  queues) 
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(O’ HARE  STATUS  INFORMATION  POR  SCREEN  USE) 


STRUCTURE  OHSTAT 

CROUP  WX  [weather  information] 

CHR  CEIL  [character  representation  (length  4)  of  prevailing  ceiling] 

CHE  VIS  [character  representation  (length  4)  of  prevailing  vlalblllty] 

CROUP  WIND  [wind  Information] 

CHR  DIR  (character  representation  (length  3)  of  wind  direction) 

CHR  VEL  (character  representation  (length  2)  of  wind  velocity] 

CHR  ARR  (3)  (character  representation  (length  3)  of  current  configuration's  arrival  runways, 
e.g.,  14R,  4R  (up  to  3  arrival  runways)] 

CHR  DEP  (4)  [character  representation  (length  4)  of  current  configuration's  departure  runways, 
e.g.,  14R,  32L,  (up  to  4  departure  runways)] 

CHR  CAPACITY  (character  representation  (length  5)  of  current  configuration's  capacity] 

CHR  PCTJIC  (character  representation  (length  3)  of  relationship  of  capacity  for  the 

current  runway  configuration  to  maximum  capacity  achievable  for  current  conditions) 

CHR  SCROLL  (character  representation  (length  4)  of  screen  scroll  number] 

CHR  L0GJMSG(13)  (character  representation  (length  80)  of  log  mesaages  appearing  In  O'Hare  status 
screen,  (up  to  13  messages)] 

CHR  MSG  (character  field  (length  80)  reserved  for  screen  messages) 

ENDSTRUCTURE; 
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[TABLE  STORING  OLD  LOC  MESSAGES  ON  O’HARE  STATUS  SCREEN) 


STRUCTURE  OLDMES 

CROUP  TABLE  (108)  [up  to  108  log  aeasages  ore  (Cored) 

INT  TIME  (Integer  representing  tine  associated  with  each  aessnge) 

CHR  MSG  [character  field  (length  80)  storing  content  of  each  log  nessage) 

ENDSTRUCTURE; 

(CHARACTER  REPRESENTATION  OP  TIME  WHEN  CONTENTS  OF  EACH 
SCREEN  WAS  LAST  STORED  IN  DATA  BASE) 

STRUCTURE  STORED 

CHR  OHSTATUS  [character  representation  (length  4)  of  tine  when  contents  of  O'Hare  status  screen 
was  last  stored  In  date  base) 

CHR  PARMOPT  [character  representation  (length  4)  of  tine  when  contenta  of  paraneter  screen 
was  last  stored  in  data  base] 

CHR  AFLOCl  [character  representation  (length  4)  of  tine  when  contenta  of  wind  and  weather 
planning  log  screen  was  last  stored  In  data  base) 

CHR  APL0G2  (character  representation  (length  4)  of  tine  when  contenta  of  airport  surface 
”  conditions  planning  log  screeo  was  last  stored  in  data  base) 

CHR  AIRP0ET(2)  [character  representation  (length  4)  of  tines  whan  contents  of  airport  status 
screen  was  last  stored  In  data  bass  (current  and  forecast)) 
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CHR  RWYLOC  (character  representation  (length  4)  of  tlae  when  contents  of  runway  equipaent  log 
screen  was  last  stored  In  data  base] 

CHR  RUNWAY  (character  representation  (length  4)  of  tlaes  when  contents  of  runway  equipaent  status 
screen  was  last  stored  in  data  base  (current  and  forecast)] 

CHR  DMNDLOG  [character  representation  (length  4)  of  tlae  when  contents  of  deaand  planning  log 
screen  was  last  stored  In  data  base] 

CHR  DEMAND  (2)  [character  representation  (length  4)  of  tlaes  when  contents  of  deaand  profile 
screen  was  last  stored  In  data  base  (curren  and  forecast)] 

CHR  OLIST  (2)  (character  representation  (length  4)  of  tlaes  when  contents  of  ordered  list  of 
configurations  screen  was  last  stored  In  data  base  (current  and  forecast)] 

CHR  QLENGTH  [character  representation  (length  4)  of  tlae  when  contents  of  current  departure  queue 
screen  was  last  stored  In  data  base] 

CHR  TRANL1ST  (character  representation  (length  4)  of  tlae  when  contents  of  ordered  list  of 
transition  screen  was  last  stored  In  data  base] 

CHR  CONF  (2)  [character  representation  (length  4)  of  tlaes  when  contents  of  configuration 
lnforaatlon  screen  was  last  stored  In  data  base  (current  and  forecast)] 


EWDSTRUCTURE; 
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CALCULATED  VARIABLES 
[AIRPORT  DEHAND  DATA) 

STRUCTURE  PRCARR  (2)  [2  environments:  current  and  forecast) 

FLT  TOTARR  [total  arrival  demand) 

FLT  TOTDEP  [total  departure  demand) 

CROUP  CO HP  (73)  (73  configurations] 

FLT  NPRCNT  [north  complex  percentage  of  arrivals) 

FLT  SPRCNT  [south  complex  percentage  of  arrivals) 

FLT  NARRDEM  (north  complex  arrival  demand) 

FLT  SARRDEM  (sou^h  complex  arrival  demand) 

FLT  NDEPDEM  [north  complex  departure  demand) 

FLT  SDEPDEH  (south  complex  departure  demand) 

FLT  BNPRCNT  (north  complex  percentage  of  arrivals  after  demand  balancing) 
FLT  BSPRCNT  [south  complex  percentage  of  arrivals  after  demand  balancing) 
FLT  SNARED EM  north  complex  balanced  arrival  demand) 

FLT  B SARRDEM  [south  complex  balanced  arrival  demand) 

FLT  SHOE  PD  EM  (noii.i  complex  balanced  departure  demand) 

FLT  BSDEPDBf  (south  complex  balanced  departure  demand) 


ENDSTRUCTURE ; 


(AIRPORT  INFORMATION  DATA] 


to 

I 


STRUCTURE  INFORM  (2)  (2  environments:  current,  forecast) 

GROUP  CONF  (73)  [up  to  73  configurations] 

I NT  INDEX  (Index  associated  with  each  configuration  for  of  table  look-up] 

FLT  CAPACITY  (total  configuration  capacity] 

FLT  NARRCAP  [arrival  capacity  of  north  complex) 

FLT  NDEPCAP  [departure  capacity  of  north  complex] 

FLT  SARRCAP  [arrival  capacity  of  south  complex) 

FLT  SDEPCAP  [departure  capacity  of  south  complex) 

FLT  SATURATION  (airport  saturation  level] 

FLT  NSAT  (north  complex  saturation  level) 

FLT  SSAT  (south  complex  saturation  level] 

I  NT  CHANGENARR  (change  In  north  complex  arrival  demand  due  to  demand  balancing] 

I NT  CHANGENDEP  (change  in  north  complex  departure  demand  due  to  demand  balancing] 
ENPSTRUCTURg; 


[CAPACITY  FILE  CLASSIFICATION  OF  EACH  CONFIGURATION] 

STRUCTURE  FILENUM  (2)  (2  environments:  current,  forecast) 

I NT  CONF  (73)  (capacity  file  classification  for  each  configuration,  1  -  VFR  DRY,  2  -  VFR  VET, 
DRY,  4  -  IFR  NET] 

ENPSTRUCTURg ; 


\ 

♦ 

I 

» 


2-32 


t 


(ELIGIBILITY  DATA| 

STRUCTURE  ELGBLTY  (2)  (2  envlronaenta :  current,  forecast) 

BITS  ID  (73  bite  etrlng  signifying  eligibility,  O-ellglble,  l-lnellglblej 
I  NT  NUH  [nuaber  of  eligible  configurational 
ENDSTRUCTUEB; 

[CONDITION  DATA) 


I  NT  CNDTN  (2)  (1-Vft,  2-IMJ 
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[AIRPORT  STATUS  INFORMATION  MOST  CURRENT  FROM  DATA  BASE] 

STRUCTURE  ANOW  (2)  (2  environments :  current,  forecast] 

CROUP  WX 

CHR  CEIL  [character  representation  (length  4)  of  prevailing  centerfleld  celling] 

CHR  VIS  [character  representation  (length  4)  of  prevailing  centerfleld  visibility] 
CROUP  WIND 

CHR  DIR  [character  representation  (length  3)  of  centerfleld  wind  direction] 

CHR  VEL  [character  representation  (length  3)  of  wind  centerfleld  velocity] 

CROUP  RUNWAY  (12)  (12  runways] 

GROUP  TOWER  [tower  Imposed  runway  conditions] 

CHR  ARR  [character  representation  (length  2)  of  runway  closures  for  arrivals] 
CHR  DEP  [character  representation  (length  2)  of  runway  closures  for  departures] 
CROUP  OTHER_RUNW  AY_I  NFORMAT  ION 

CHR  SURF  [character  representation  (length  2)  of  runway  surface  conditions] 

CHR  BRK  [character  representation  (length  2)  of  runway  braking  conditions] 


RESTRUCTURE; 
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(MIDWAY  AIRPORT  OPERATIONS  INDICATOR  MOST  CURRENT  PROM  DATA  SASE| 

CHR  KNOW  (2)  (character  representation  (length  2)  of  a  flag  indicating  operation  of  runway  13R  at 
MIDWAY  airport  for  both  current  and  foracaat  envlronaenta] 

(AIRPORT  STATUS  DATA  MOST  CURRENT  PROM  DATA  BASE] 

STRUCTURE  CVTANOW  (2)  (2  envlronaenta:  currant,  foracaat) 

CROUP  WK 

PIT  CEIL  (prevailing  airport  calling) 

FLT  VIS  (prevailing  airport  visibility] 

CROUP  WIND 

PLT  DIR  (airport's  centerflald  wind  direction] 

PLT  VEL  (airport's  centerflald  wind  velocity! 


EMPSTRUCTURE; 
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( RUNWAY  EQUIPMENT  STATUS  INFORMATION  MOST  CURRENT 
FROM  DATA  RASE] 

STRUCTURE  RNOW  (2)  (2  environment*:  current,  forecestj 

CROUP  RUNHAY  (12)  | 12  runway*) 

CHR  CAT  II  (cherecter  lndlcetor  for  etetue  of  CAT  II) 

CHR  LOC  (cherecter  lndlcetor  (length  2)  for  etetue  of  locellzer] 

CHR  CS  (cherecter  lndlcetor  (length  2)  for  etetue  of  glide  elope] 

CHR  OM  [cherecter  lndlcetor  (length  2)  for  etetue  of  outer  nerker] 

CHR  MM  (cherecter  lndlcetor  (length  2)  for  etetue  of  middle  marker] 

CHR  IN  (cherecter  lndlcetor  (length  2)  for  etetue  of  Inner  marker] 

CHR  RAIL  (cherecter  lndlcetor  (length  2)  for  etetue  of  runway  alignment  lndlcetor  llghte] 

CHR  ALS  (cherecter  lndlcetor  (length  2)  for  etetue  of  epproech  lighting  eyetem) 

CHR  RVR  (cherecter  lndlcetor  (length  2)  for  etetue  of  runway  vt.ua 1  range) 

CHR  HIRL  (character  Indicator  (length  2)  for  etetue  of  high  lntenelty  runway  light*] 

CHR  CL  (character  Indicator  (length  2)  for  etetue  of  centerline  light*) 

CHR  TDZ  (character  Indicator  (length  2)  for  etetue  of  touchdown  zone] 

CHR  NDS  VOR  (character  Indicator  (length  2)  for  etetue  of  non-dlrectlonal  beacoo/VHF 
o an  1 -directional  range) 


EHDSTRUCTURE; 
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[DEMAND  PROPILE  INFORMATION  MOST  CURRENT  FROM  DATA  BASE) 

STRUCTURE  DMOW  (2)  (2  environment* ;  current,  forecast] 

CROUP  ARR  (arrival  demand  Information] 

CHR  TOTAL  [character  representation  (length  4)  of  total  arrival  demand) 

CHR  KUBBS  [character  representation  (length  4)  of  arrival  demand  at  fix  KUBBS] 

CHR  PLANT  [character  representation  (length  4)  of  arrival  demand  at  fix  PLANT) 

CHR  CCT  [character  representation  (length  4)  of  arrival  demand  at  fix  CGT) 

CHR  VAINS  (character  representation  (length  4)  of  arrival  demand  at  fix  VAINS) 

CHR  FARMM  [character  representation  (length  4)  of  arrival  demand  at  fix  FARIM] 

CHR  MKEA  [character  representation  (length  4)  of  arrival  demand  at  fix  MILWAUKEE] 

CROUP  DEP  (departure  demand  Information] 

CHR  TOTAL  (character  representation  (length  4)  of  total  departure  demand) 

CHR  NORTH  [character  representation  (length  4)  of  departure  demand  at  NORTH  fix] 
CHR  EAST  (character  representation  (length  4)  of  departure  demand  at  EAST  flxj 
CHR  SOUTH  [character  representation  (length  4)  of  departure  demand  at  SOUTH  fix] 
CHR  WEST  (character  representation  (length  4)  of  departure  demand  at  NEST  fix] 
ENP8TRUCTURE; 


(DEMAND  PROFILE  DATA  MOST  CURRENT  FROM  DATA  BASE) 

STRUCTURE  CVTDNOW  (2)  (2  environments :  current,  forecast) 

CROUP  ARR  (arrival  demand) 

FLT  TOTAL  (total  arrival  deaand] 

FLT  KUBBS  (arrival  deaand  at  fix  KUBBS} 

FLT  PLANT  (arrival  demand  at  fix  PLANT) 

FLT  CGT  (arrival  deaand  at  fix  CCT) 

FLT  VA1NS  (arrival  deaand  at  fix  VAINS] 

FLT  FAR>M  (arrival  deaand  at  fix  FARM] 

FLT  MKEJt  (arrival  deaand  at  fix  MILWAUKEE] 

CROUP  DEP  (departure  deaand] 

FLT  TOTAL  [total  departure  deaand) 

FLT  NORTH  (departure  deaand  at  NORTH  fix] 

FLT  EAST  (departure  deaand  at  EAST  fix] 

FLT  SOUTH  (departure  deaand  at  SOUTH  fix] 

FLT  WEST  (departure  deaand  at  WEST  fix] 

FLT  KKEJD  (departure  deaand  at  MILWAUKEE  fix) 

SUBSTRUCTURE; 
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[ CONFIGURATION  INDEX  HOST  CURRENT  FROM  DATA  BASE) 

I NT  CNQW  (2)  [integer  Index  Indicating  operating  configuration  in  current  and  forecaat  environment) 

[RUNWAY  EQUIPMENT  PLANNING  LOG  INFORMATION  MOST  CURRENT  FROM  DATA  BASE] 

STRUCTURE  ENOW 

GROUP  TABLE  (15)  [up  to  15  lines  of  log  entries] 

CHR  RWY  [character  representation  (length  3)  of  a  runway  used  in  log  entry,  e.g.,  14R] 

EQUIPMENT  [character  field  (length  11)  reserved  for  equipment  name  used  in  equipment  log] 

CHR  OTS  (character  representation  (length  4)  of  "OUT  OF  SERVICE”  times  used  in  equipment  log] 

CHR  RTS  (character  representation  (length  4)  of  "RETURN  TO  SERVICE”  tiaes  used  In  equipment  log] 

CHR  REMARKS  (character  field  (length  39)  reserved  for  free~formatted  comments  used  in  equipment 

log! 

ENDSTRUCTURE; 

[RUNWAY  EQUIPMENT  PLANNING  LOG  DATA  MOST  CURRENT  FROM  DATA  BASE] 

STRUCTURE  CVTBNOW 

CROUP  TABLE  (15)  (up  to  15  lines  of  log  entries) 

INT  OTS  [Integer  representing  "OUT  OF  SERVICE”  time  used  in  equipment  log) 

I  NT  RTS  [Integer  representing  "RETURN  TO  SERVICE”  time  used  in  equipment  log] 

ENDSTRUCTURE; 
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(WEATHER  AND  WIND  PLANNING  LOC  INFORMATION  MOST  CURRENT  PROM  DATA  BASE j 

STRUCTURE  WNOW 

CROUP  TABLE  (13)  (up  to  13  lines  of  log  entries] 

CHR  TIME  (character  representation  (length  4)  of  tlae  used  In  weather  and  wind  planning  log] 

CHR  CEIL  (character  representation  (length  5)  of  celling  used  In  weather  and  wind  log] 

CHR  VIS  (character  representation  (length  5)  of  visibility  used  In  weather  and  logj 

CHR  DIR  (character  representation  (length  5)  of  wind  direction  used  in  weather  and  wind  log] 

CHR  VEL  (character  representation  (length  5)  of  wind  velocity  used  In  weather  and  wind  log] 

CHR  REMARKS  [character  field  (length  35)  reserved  for  f ree-forwatted  cosaenti  used  In  weather 
and  wind  log) 

ENDSTRUCTURE; 


2-40 


[WEATHER  AND  WIND  PLANNING  LOG  DATA  HOST  CURRENT  PROM  DATA  BASE] 

STRUCTURE  CVTWNOW 

CROUP  TABLE  (13)  [up  Co  13  log  entries) 

INT  TIME  [integer  representing  else  used  in  veatber  and  vind  planning  log] 

PLT  CEIL  (floating  point  variable  used  to  represent  value  of  ceiling  in  weather  and  wind 
planning  log) 

PLT  VIS  [floating  point  variable  used  to  represent  value  of  visibility  In  weather  and 
wind  planning  log] 

PLT  DIR  (floating  point  variable  used  to  represent  value  of  wind  direction  in  weather 
and  wind  planning  log] 

PLT  VBL  (floating  point  variable  used  to  represent  value  of  wind  velocity  in  weather  and 
wind  planning  log] 

EHDSTRUCTU1E; 


I 


i 
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(RUNWAY  SURFACE  CONDITIONS  PLANNING  LOG  INFORMATION  MOST  CURRENT  FROM  DATA  BASE 


STRUCTURE  SNOW 

TABLE  (13)  [up  to  13  log  entries] 

CHR  TIME  (character  repreeent.tton  (length  4)  of  tine  need  In  runway  aurface  condition* 
planning  log] 

CHR  RWY  (character  repreaentatlon  (Length  3)  of  runway  In  runway  surface  conditions 
planning  log] 

CHR  SURF  (character  field  (length  5)  reserved  for  description  of  runway  surface  conditions 
in  runway  surface  conditions  planning  log] 

CHR  BRAK  (character  field  (length  5)  reserved  for  description  of  runway  braking  conditions 
In  runway  surface  conditions  planning  log] 

CHR  CLOSED  (character  field  (length  6)  reserved  for  Information  on  runway  closures  on  the 
runway  aurface  conditions  planning  log) 

CHR  OPEN  [character  field  (length  6)  reserved  for  Information  on  runway  openings  on  the 
runway  surface  conditions  planning  log) 


CHR  REMARKS  [character  field  (length  27)  reserved  for  free-formatted  cc 
surface  conditions  planning  log] 


ents  used  in  runway 


ENDSTRUCTURE; 


(RUNWAY  SURFACE  CONDITIONS  PLANNING  LOG  DATA  MOST  CURRENT  FROM  DATA  BASE) 

STRUCTURE  CVTSNOW 

TABLE  (13)  (up  to  13  log  entries) 

INT  TIME  llnteger  representing  time  used  In  runway  aurface  conditions  planning  log) 
ENDSTRUCTURE: 


i 

» 

( 
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[DEMAND  PLANNING  LOG  SCREEN  INFORMATION  MOST  CURRENT  FROM  DATA  BASE] 

STRUCTURE  GNOV 

GROUP  TABLE  (0:23)  (24  hours  of  demand  data  available  on  demand  planning  screen) 

CHR  GMT  [character  representation  (length  4)  of  time  (hour)  for  demand  Information] 

CHR  TTLARR  [character  representation  (length  3)  of  total  hourly  arrival  demand) 

CHR  TTLDEP  (character  representation  (length  3)  of  total  hourly  departure  demand] 

CHR  KUBBS  (character  representation  (length  3)  of  hourly  arrival  demand  at  fix  KUBBS] 
CHR  CCT  [character  representation  (length  3)  of  hourly  arrival  demand  at  fix  CGT] 

CHR  VAINS  (character  representation  (length  3)  of  hourly  demand  at  fix  VA1NS) 

CHR  FARMM  (character  representation  (length  3)  of  hourly  arrival  demand  at  fix  PARMM] 

CHR  NORTH  [character  representation  (length  3)  of  hourly  departure  demand  at  NORTH  fix] 

CHR  EAST  [character  representation  (length  3)  of  hourly  departure  demand  at  BAST  fix] 
CHR  SOUTH  [character  representation  (length  3)  of  hourly  departure  demand  at  SOUTH  fix] 

CHR  VEST  (character  representation  (length  3)  of  hourly  departure  demand  at  VEST  fix) 


ENDSTRUCTURE; 
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(DEMAND  PLANNING  LOG  DATA  MOST  CURRENT  PROM  DATA  BASE) 

STRUCTURE  CVTCNOW 

GROUP  TABLE  (0:23)  (24  hours  of  deaand  data  available  on  deaand  planning  screen| 

I NT  GMT  (Integer  value  of  liae  (hour)  for  deaand  information) 

PLT  TTLARR  (floating  point  value  of  total  hourly  arrival  deaand) 

FLT  TTLDEP  (floating  point  value  of  total  hourly  departure  deaand] 

PLT  CGT  (floating  point  value  of  hourly  arrival  deaand  at  fix  CGTJ 
FLT  VAINS  (floating  point  value  of  hourly  arrival  deaand  at  fix  VAINS] 

FLT  FARM!  [floating  point  value  *>f  hourly  arrival  deaand  at  fix  FARM!} 

FLT  NORTH  (floating  point  value  of  hourly  departure  deaand  at  NORTH  fix) 
FLT  BAST  [floating  point  value  of  hourly  departure  deaand  at  EAST  fix) 

FLT  SOUTH  [floating  point  value  of  hourly  departure  deaand  at  SOUTH  fix] 
FLT  WEST  [floating  point  value  of  hourly  departure  deaand  at  VEST  fix) 
ENDSTRUCTURE; 
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| PARAMETERS  INFORMATION  MOST  CURRENT  FROM  DATA  BASE] 

STRUCTURE  PNOW 

GROUP  PARAMETER  [wind  thresholds] 

GROUP  ARR  [pertaining  to  arrivals] 

CHR  CRSS  [character  representation  (length  4)  of  crosswind  component  of  wind  thresholds] 

CHR  TAIL  (character  representation  (length  4)  of  tailwind  component  of  wind  thresholds] 

GROUP  DEP  [pertaining  to  departures] 

CHR  CRSS  [character  representation  (length  4)  of  crosswind  component  of  wind  thresholds] 

CHR  TAIL  [character  representation  (length  4)  of  tailwind  component  of  wind  thresholds] 

ENDSTRUCTURE; 

[PARAMETERS  DATA  MOST  CURRENT  FROM  DATA  BASE] 

STRUCTURE  CVTPNOW 

CROUP  ARR  (wind  thresholds  for  srrlvals) 

FLT  CRSS  (crosswind  component  of  wind  threshold) 

FLT  TAIL  (tailwind  component  of  wind  threshold) 

CROUP  DEP  (wind  thresholds  for  departures] 

FLT  CRSS  (crosswlnd  component  of  wind  threshold] 

FLT  TAIL  (tailwind  component  of  wind  threshold] 


ENDSTRUCTURE? 
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[DEPARTURE  QUEUES  INFORMATION  MOST  CURRENT  FROM  DATA  BASE] 


STRUCTURE  QNOW 

CHR  QL  (4)  (character  representation  (length  2)  of  nuaber  of  aircraft  in  departure  queue] 
ENDSTRUCTURE; 

(DEPARTURE  QUEUES  DATA  MOST  CURRENT  FROM  DATA  BASE] 

I NT  CVTQNOW  (4)  (integer  representing  length  of  departure  queues] 


I 

» 

I 


t 
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[AIRPORT  STATUS  INFORMATION  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  ABEGIN  (2)  [2  environments:  current,  forecast] 

GROUP  WX 

CHR  CEIL  [A  bit  character  representation  of  prevailing  celling] 

CHR  VIS  (4  bit  character  representation  of  prevailing  visibility] 

GROUP  WIND 

CHR  DIR  [3  bit  character  representation , of  wind  direction] 

CHR  VEL  [3  bit  character  representation  of  wind  velocity] 

GROUP  RUNWAY  (12)  (12  runways] 

GROUP  TOWER  (tower  Imposed  runway  conditions] 

CHR  ARR  (2  bit  character  representation  of  runway  closures  for  arrivals] 

CHR  DBF  (2  bit  character  representation  of  runway  closures  for  departures] 

CROUP  OTHER JUJNWAY_INFORMATION 

CHR  SURF  (2  bit  character  representation  of  runway  surface  conditions] 

CHR  BRK  [2  bit  character  representation  of  runway  braking  conditions] 
ENDSTRUCTURB 


[MIDWAY  AIRPORT  OPERATIONS  INDICATOR  ORIGINAL  FROM  DATA  BASE] 

CHR  MBEGIN  (2)  (2  Mt  character  representation  of  a  flag  Indicating  Midway  airport  Is  operational  for 

current  and  forecast  environment] 

[AIRPORT  STATUS  DATA  ORIGINAL  FROM  DATA  BASE) 

STRUCTURE  CVTABGN  (2)  (2  environments:  current,  forecast] 

CROUP  WX 

PLT  CEIL  [prevailing  airport  celling] 

FLT  VIS  (prevailing  airport  visibility] 

GROUP  WIND 

PLT  DIR  [airport's  centerfield  wind  direction] 

FLT  VEL  (airport's  centerfield  wind  velocity) 

ENPSTRUCTURE; 
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, 

(RUNWAY  EQUIPMENT  STATUS  INFORMATION  ORIGINAL  PROM  DATA  RASE) 

STRUCTURE  RBEGIN  (2)  [2  environments:  current,  forecast) 

GROUP  RUNWAY  (12)  (12  runways) 

CHR  CAT  II  (2  bit  character  Indicator  for  status  of  CAT  II) 

CHE  LOC  [2  bit  character  indicator  for  status  of  locallsarj 
CHR  GS  [2  bit  character  Indicator  for  status  of  glide  slope] 

CHR  OH  {2  bit  character  indicator  for  status  of  outer  marker] 

CHR  MM  [2  bit  character  Indicator  for  status  of  middle  marker] 

CHR  IM  (2  bit  character  Indicator  for  status  of  inner  marker) 

CHR  RAIL  (2  bit  character  Indicator  for  status  of  rummy  alignment  Indicator  lights) 

CHR  ALS  (2  bit  character  Indicator  for  status  of  approach  lighting  system] 

CHR  RVR  (2  bit  character  indicator  for  status  of  runway  visual  range) 

Cm  KIEL  [2  bit  character  Indicator  for  status  of  high  intensity  runway  lights) 

CHR  CL  (2  bit  character  Indicator  for  status  of  centerline  lights] 

CHR  TD2  (2  bit  character  indicator  for  status  of  touchdown  sooe) 

CHR  NDB_VOR  [2  bit  character  indicator  for  atatus  of  non-dlrectlonal  beacon/VHP  omni-directional 
range] 

EMDSTRUCTURE; 
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(DEMAND  PROFILE  INFORMATION  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  D BEGIN  (2)  [2  environments:  current,  forecast] 

GROUP  ARR  (arrival  demand  Information) 

CHR  TOTAL  [4  bit  character  representation  of  total  arrival  demand) 

CHR  KUBBS  (4  bit  character  representation  of  arrival  demand  at  fix  KUBBS] 

CHR  PLANT  (4  bit  character  representation  of  arreival  at  fix  PLANT] 

CHR  CGT  (4  bit  character  representation  of  arrival  demand  at  fix  CGT] 

CHR  VA1NS  (4  bit  character  representation  of  arrival  demand  at  fix  VAINS] 

CHR  FARMM  (4  bit  character  representation  of  arrival  demand  at  fix  FARItf] 

CHR  MKE__A  (4  bit  character  representation  of  arrival  demand  at  fix  MILWAUKEE] 

GROUP  DEP  [departure  demand  Information] 

CHR  TOTAL  (4  bit  character  representation  of  total  departure  demand) 

CHR  NORTH  [4  bit  character  representation  of  departure  demand  at  NORTH  fix) 
CHR  EAST  (4  bit  character  representation  of  departure  demand  at  EAST  fix) 

CHR  SOUTH  (4  bit  character  representation  of  departure  demand  at  SOUTH  fix) 
CHR  WEST  [4  bit  character  representation  of  departure  demand  at  WEST  fix) 
EMPSTRUCTURE; 
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(DDUJH  PROFILE  DATA  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  CVTDBCN  (2)  (2  environment.:  'current' .  'foreceet'] 

CROUP  ARR  (arrival  demand] 

PLT  TOTAL  (total  arrival  demand ) 

FLT  KUBBS  [arrival  demand  at  fix  KUBBS) 

PLT  PLANT  (arrival  demand  at  fix  PLANT] 

PLT  CCT  (arrival  demand  at  fix  CCT] 

PLT  VAINS  (arrival  demand  at  fix  VAXNS] 

PLT  TARIM  (arrival  demand  at  fix  PARIM] 

PLT  HKEA  [arrival  demand  at  fix  MILWAUKEE] 

CROUP  DEP  (departure  demand] 

PLT  TOTAL  [total  departure  demand] 

FLT  MONTH  (departure  demand  at  NORTH  fix] 

PLT  EAST  (departure  demand  at  EAST  fix] 

PLT  SOUTH  (departure  demand  at  SOUTH  fix) 

PLT  WEST  (departure  demand  at  WEST  fix) 

PLT  HKE_D  (departure  demand  at  MILWAUKEE  fix) 

EHDSTRUCTURE; 


j. 
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[CONFIGURATION  INDEX  ORIGINAL  FROM  DATA  BASE) 

INT  CBEGIN  (2)  [Integer  Index  indicating  current  configuration  in  current  and  forecast  envlronaent] 

(RUNWAY  EQUIPMENT  PLANNING  LOG  INFORMATION  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  EBEGIN 

CROUP  TABLE  (15)  [up  to  15  lines  of  log  entries] 

CHR  rvy  (3  bit  character  representation  of  a  runway  used  in  log  entry,  e.g.,  14R] 

CHR  EQUIPMENT  [11  bit  character  field  reserved  for  equipment  name  used  in  equipment  log] 

CHR  OTS  [4  bit  character  representation  of  “OUT  OF  SERVICE”  tines  used  in  equipment  log] 

CHR  RTS  [4  bit  character  representation  of  "RETURN  TO  SERVICE"  tines  used  in  equipment  log] 

CHR  REMARKS  [39  bit  character  field  reserved  for  free  formatted  comments  used  in  equipment  log] 

ENDSTRUCTURE ; 

[RUNWAY  EQUIPMENT  PLANNING  LOG  DATA  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  CVTEBGN 

CROUP  TABLE  (15)  (up  to  15  lines  of  log  entries) 

INT  OTS  (integer  representing  "OUT  OF  SERVICE"  time  used  In  equipment  log] 

INT  RTS  (integer  representing  "RETURE  TO  SERVICE"  time  used  in  equipment  log) 


ENDSTRUCTURE; 
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(WEATHER  MO  WIND  PLANNING  LOG  INFORMATION  ORIGINAL  PNOM  DATA  BASK) 

STRUCTURE  IfBEGIN 

CROC.-’  TABLE  (13)  (up  to  13  llnaa  of  lot  entries) 

CHE  TIME  (A  bit  character  representation  of  tlae  used  la  wither  sad  wind  planning  loti 

CHE  CEIL  (3  bit  character  representation  of  prevalliaE  calling  usad  In  w net  her  and  wlad  log) 

CUE  VIS  (3  bit  character  repraaeatatloa  of  prevailing  visibility  used  la  vest  bar  aad  logj 

CHE  DIE  (3  bit  character  representation  of  wind  direction  used  la  weather  aad  wlad  log) 

CUE  VEL  (3  bit  character  representation  of  wind  velocity  used  la  wether  and  triad  log] 

CHE  REMARES  (33  bit  character  field  reserved  for  free-fomatted  coasenta  uaad  la  wether  and  wlad 
lo*| 

ENDSTRUCTURE ; 


[WEATHER  Alb  WIND  PLANNING  LOG  DATA  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  CVTWBCN 

GROUP  TABLE  (13)  (up  to  13  log  entries] 

I NT  TIME  (Integer  representing  tlae  used  In  weather  and  wind  planning  log] 

FLT  CEIL  [floating  point  variable  used  to  represent  value  of  prevailing  ceiling  In  weather  and 

wind  planning  log] 

FLT  VIS  [floating  point  variable  used  to  represent  value  of  prevailing  visibility  in  weather  and 
wind  planning  log] 

FLT  DIR  [floating  point  variable  used  to  represent  value  of  wind  direction  in  weather  and  wind 
planning  log] 

FLT  VEL  [floating  point  variable  used  to  represent  value  of  wind  velocity  in  weather  and  wind 
planning  log] 

ENDSTRUCTURE; 

[RUNWAY  SURFACE  CONDITIONS  PLANNING  LOG  INFORMATION  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  SBEGIN 

CROUP  TABLE  (13)  (up  to  13  log  entries] 

CHR  TIME  (4  bit  character  representation  of  tlae  used  in  weather  and  wind  planning  log) 

CHR  RWY  [3  bit  character  representation  of  a  runway  in  an  entry  in  runway  surface  conditions 
planning  log] 

CHR  SURF  (5  bit  character  field  reserved  for  description  of  runway  surface  conditions  in  runway 
surface  conditions  planning  log) 

CHR  IRAK  [5  bit  character  field  reserved  for  description  of  runway  braking  conditions  in  runway 
surface  conditions  planning  log) 
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CHR  CLOSED  (6  bit  character  field  reserved  for  Information  on  runway  closures  on  runway  surface 
conditions  planning  log) 

CHR  OPEN  [6  bit  character  field  reserved  for  information  on  runway  closures  on  runway  surface 
conditions  planning  log) 

CHR  REMARKS  (27  bit  character  field  reserved  for  free  formatted  comments  used  in  runway  surface 
conditions  planning  log] 

EHDSTRUCTURE; 

[RUNWAY  SURFACE  CONDITIONS  PLANNING  LOG  DATA  ORIGINAL  PROM  DATA  RASE] 

STRUCTURE  CVTSRGN 

CROUP  TABLE  (13)  (up  to  13  log  entries) 

I NT  TIME  (integer  representing  time  used  in  runway  surface  conditions  planning  log] 

ENPSTRUCTURK ; 


STRUCTURE  GBEG1N 


(DEMAND  PLANNING  LOG  SCREEN  INFORMATION  ORIGINAL  FROM  DATA  BASE] 


GROUP  TABLE  (0:23)  (24  hours  of  demand  data  available  on  demand  planning  screen) 

CHR  GMT  [4  bit  character  representation  of  time  (hour)  for  demand  Information) 

CHR  TTLARR  (3  bit  character  representation  of  total  hourly  arrival  demand ) 

CHR  TTLDEP  (3  bit  character  representation  of  total  hourly  departure  demand) 

CHR  KUBBS  (3  bit  character  representation  of  hourly  arrival  demand  at  fix  KUBBS) 
CHR  CGT  (3  bit  character  representation  of  hourly  arrival  demand  at  fix  CGTJ 
CHR  VAINS  (3  bit  character  representation  of  hourly  arrival  demand  at  fix  VA1NS) 

CHR  FARMM  (3  bit  character  representation  of  hourly  arrival  demand  at  fix  FARMM) 

CHR  NORTH  [3  bit  character  representation  of  hourly  departure  demand  at  NORTH  fix) 

CHR  EAST  (3  bit  character  representation  of  hourly  departure  demand  at  EAST  fix) 
CHR  SOUTH  (3  bit  character  representation  of  hourly  departure  demand  at  SOUTH  fix) 

CHR  WEST  [3  bit  character  representation  of  hourly  departure  demand  at  WEST  fix) 


ENDgTRUCTURE; 
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[DEMAND  PLANNING  LOG  DATA  ORIGINAL  FROM  DATA  BASK] 

STRUCTURE  CVTCBGN 

GROUP  TABLE  (0:23)  (24  hour*  of  deaand  data  available  oo  deaand  planning  acreen) 

INT  CUT  (Integer  value  of  tine  (hour)  for  deaand  Information] 

FLT  TTLARR  [floating  point  value  of  total  hourly  arrival  deaand] 

FLT  TTLDEP  (floating  point  value  of  total  hourly  departure  deaand] 

FLT  KUBBS  (floating  point  value  of  hourly  arrival  demand  at  ft*  RUBBS] 

FLT  CCT  (floating  point  value  of  hourly  arrival  deaand  at  fl*  CCT] 

FLT  VAINS  (floating  point  value  of  hourly  arrival  deaand  at  fl*  VAINS] 

FLT  FARMM  (floating  point  value  of  hourly  arrival  deaand  at  fl*  FARMM] 

FLT  NORTH  [floating  point  value  of  hourly  departure  deaand  at  NORTH  fl*] 

FLT  EAST  [floating  point  value  of  hourly  departure  deaand  at  EAST  fl*J 
FLT  SOUTH  [floating  point  value  of  hourly  departure  daaand  at  SOUTH  fix] 

FLT  WEST  (floating  point  value  of  hourly  departure  deaand  at  WEST  fix) 
ENDSTRUCTURE; 
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[PARAMETERS  INFORMATION  ORIGINAL  FROM  DATA  BASEJ 


STRUCTURE  PBEGIN 

GROUP  PARAMETER  [wind  thresholds] 

GROUP  ARR  [pertaining  to  arrivals] 

CHR  CRSS  [4  bit  character  representation  of  cross  wind  coaponent  of  wind  thresholds] 

C HR  TAIL  (4  bit  character  representation  of  croaa  wind  coaponent  of  wind  thresholds) 

CROUP  DEP  (pertaining  to  departures] 

CHR  CRSS  (4  bit  character  representation  of  cross  wind  coaponent  of  wind  thresholds] 

CHR  TAIL  [4  bit  character  representation  of  tall  wind  coaponent  of  wind  thresholds] 

ENDSTRUCTURE; 

[PARAMETERS  DATA  ORICINAL  FROM  DATA  BASE] 

STRUCTURE  CVTPBGN 

GROUP  ARR  [wind  thresholds  for  arrivals] 

FLT  CRSS  (crosswind  coaponent  of  wind  thresholds] 

FLT  TAIL  [tailwind  coaponent  of  wind  thresholds] 

CROUP  DEP  [wind  thresholds  for  departures] 

FLT  CRSS  (crosswind  coaponent  of  wind  thresholds] 

FLT  TAIL  (tailwind  coaponent  of  wind  thresholds] 


ENDSTRUCTURE ; 


(DEPARTURE  QUEUES  INFORMATION  ORIGINAL  FROM  DATA  BASE] 

STRUCTURE  QBEGIN 

CHB  QL  (4)  [2  bit  character  representation  of  nuaber  of  aircraft  In  departure  queue) 

ENDSTRUCTURE 

(DEPARTURE  QUEUES  DATA  ORIGINAL  FROM  DATA  BASE] 

INT  CVTQBGN  (4)  (Integer  representing  length  of  departure  queues] 


1 
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TASK  ASSISTANT_CHIEF_MAIN_PROGRAM 

[This  Is  assistant  chief  prograa1 a  mala  procedure  referred  to  aa  ASSISTANT__CHIEF__HAIN__PROGRAM,  It 
controla  entire  prograa  by  calling  several  routines  that  take  user  Into  CMS) 

BITS  RSTATUS  [8  bit  string  containing  current  progran  status  lntiallzed  to  'OllllOll'B  or  equivalent  for 
PF11  progran  function  key) 

BITS  0LD_STATUS  [8  bit  string  containing  the  previous  prograa  status) 

CHR  TERM  (character  string  (length  1)  indicating  prograa  teralnatlon,  1  ’  -do  not  teralnate, 

‘X*  -  teralnate,  initialised  to  blank) 

INT  1  (Integer  indicating  envlronsent  of  operation,  l_current,  2_forecast,  it  la  initialised  to  1) 

CAf.L  CETFILE;  [read  peraanent  data  files  containing  prograa* a  global  paraaeteral 
CALL  INREAD ;  (initial  access  to  data  base,  read  data  base) 

REPEAT  UNTIL  (TERM  E£  'X')i  (begin  sain  loop,  repeat  until  teralnatlon  la  signaled) 

CALL  CHOOSE; 

INPUT  (RSTATUS,  0LD_STATUS , I ) ;  [choose  screen  or  function) 

CALL  TOLINK;  [access  central  data  base) 

CALL  READER;  [read  central  data  base) 

CALL  MERGE; 

INPUT  (OLDJSTAIUS);  (aerge  all  versions  of  central  data  base] 

CALL  WRITER;  [write  new  central  data  base ) 

CALL  TODTACH;  [release  central  data  base) 

CALL  ASSIGN;  (assign  new  values  to  soae  prograa  variables] 

CALL  UPDATE;  [coapute  rest  of  prograa  variables) 

EHDREPEAT; 

END  ASSIST  ANT_CHIEF_MAIM_FROCRAM; 
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ROUTINE  GETFILE 

(This  routine  reads  permanent  data  files  containing  CMS  global  paraaetersl 
Read  RWYMIN  fros  RNUYMIN  file; 

CALL  MILES; 

INOUT(RWYMIN);  (convert  RVR  readings  to  alles] 

Read  CNEGRQ  froa  CNFGREQ  file; 

Read  CAP FILE  froa  CAPACTY  file; 

Read  FIXTRAV  froa  TRAVEL  file; 

Read  DEPMAT  froa  DEPEND  file; 

Read  OACDEM  froa  OAGDMND  file; 

END  GETFILE; 

ROUTINE  MILES 

INOUT(RWYMIN);  (this  routine  converts  RVR  readings  to  Biles] 

LOOP;  [J  ■  1  to  12]  (for  each  runway] 

PERFORM  RVR_TO_MILES_CONVERSION; 

BHDLOOP; 

END  MILES; 

PROCESS  RVRJTO  MILESjCONVERSION 

[This  process  converts  data  lteas  froa  RVR  to  alles] 

RWYHIN(J).CATII.NONB.VIS  -  M(RWYMIN(J) .CATII. NONE. VIS) ; 

RWYMIN(J).ILS.  NONE.  VIS  -  M(RWYMIN(  J)  .ILS.NONE.VIS) ; 

RWYMIN(  J)  ■  ILS.MM.VIS  -  M(RWYMIN(J)  .ILS.MH.VIS)  ; 
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RWYMIN(J).ILS.RAILALS.VIS  -  H(RVYHIN(J)  .ILS.RAIL_ALS.VIS) ; 
RUYMIN(J) .ILS.TDZ.V1S  -  MCRWYMIN(J).ILS.TDZ.VIS); 
RWYMIN(J).ILS.CL.VIS  -  M(RVYHIN(J)  .ILS.CL.VIS) ; 
RWYMIN(J).LOC. HOME. VIS  •  M(RWYHINU)  .LOC. NONE.  VIS) ; 
RWYMIN(J).LOC.MM.VIS  -  H(RVYMIN< J)  .LOC. Mi. VIS)  j 
RWYMIN(J).LOC. RAIL. VIS  -  H(RWYHIN(J) .LOC.RAIL.VIS) ; 
RVfYHIN(J).LOC.ALS.VIS  -  H(RVYHIN(J)  .LOC.ALS.VIS) ; 
RVYMIN(J).NDB_VOR. NONE.  VIS  -  M(RWYMIN(J) .HD»_V0R. NONE. VIS) [ 
RUYHINC  J)  .NDB_V0R.RA1L.VIS  -  H(RUTMIN(  J)  .NDB_VOR. RAIL. VIS)  ; 
RWYMIN(J).NDB_VOR.ALS.VIS  -  H(RVYNIN(J)  .NDB_VOR.iOS.VIS)  i 
END  RVRTOHILESCONVfflSION; 


I 
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ROUTINE  INREAD 

[This  routine  accesses  base  and  reads  data  base  for  first  time) 

CALL  TOLINK;  [access  central  data  base] 

PERFORM  RLAD_DATA_«AdE; 

CALL  TODTACH;  [release  central  data  base] 

PERFORM  SET_0R1GINAL_PR0GRAM_VARI  ABLES  j 

PERFORM  SET_CMS_PR0GRAM_VAR1ABLES  j 

END  INREAD; 

PROCESS  READDATARASE 

(This  process  reads  data  base] 

Open  file  STARTUP; 

Read  STORED; 

Read  KNOW,  CNOW,  QNOW,  CVTQNOW; 
to  Read  PNOW,  CVTPNOU; 

O,  Read  ANOW; 

w  Read  CVTANOW ; 

Read  RNOU; 

Read  DNOU; 

Read  CVTDNOW; 

Read  ENOW; 

Read  CVTENOW; 

Read  WNOU; 

Read  CVTWNOW; 

Read  SNOW; 

Read  CVTSNOW; 

Read  GNOW; 

Read  CVTGNOW; 

Close  file  STARTUP;  (each  read  corresponds  to  a  read  statement  In  program] 
END  READ_DATA_BASE; 
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PROCESS  SET__ORIGINAL_PROGRAH_VARIABLKS 

( This  process  secs  orlglnsl  progru  vsrisbles  from  current  progrsa  variables] 

H BEGIN  -  KNOW; 

PBEGIN  -  PNOW; 

CVTPBCN  -  CVTPNOW; 

ABEGIN  -  ANOW; 

CVTABGN  -  CVTANOW; 

R BEGIN  -  ENOW; 

DBBCIN  -  DNOW; 

CVTOBGH  -  CVTDNOW; 

CBEGIN  -  CHOW;  . 

EBEGIN  •  ENOW; 

CVTEBGN  -  CVTENOW; 

Q BEGIN  -  QNOW; 

CVTQBGN  “  CVTQNOW; 

WBEGIN  -  WNOW; 

CVTWBGN  -  CVTWNOW; 

SBEGIN  -  SNOW; 

CVTSBGN  -  CVTSNOW; 

GBEGIN  -  GNOW; 

CVTGBGN  -  CVTGNOW; 

END  SET_ORIGINAL_PROCRAM_VARIABLES ; 
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PROCESS  SET_CMS_PROCRAM_VARIABLES 

[This  process  sets  CHS  prograa  variables  fros  current  and  original  prograa  variables) 

MIDFUG  -  HBEGIN ; 

PARAM  *  PBECIN,  BY  NAME; 

CNVTPRM  -  CVTPBGN,  BY  NAME;  (BY  NAME  OPTION  chooses  only  those  variables  each  structure  that  have 

slailar  naaesl 

APTSTAT  -  ABEGIN,  BY  NAME; 

CNVTAPT  -  CVTABGN,  BY  NAME; 

RWYEQP  -  RBEGIN,  BY  NAME; 

DEMAND  -  DBEGIN,  BY  NAME; 

CNVTDEM  -  CVTDBGN,  BY  NAME; 

CONFIND  -  CBEGIN; 

EQPLOC  -  EBECIN,  BY  NAME; 

CNVTEQP  -  CVTEBGN; 

QUELEN  -  Q BEGIN,  BY  NAME; 

CNVTQLN  -  CVTQBCN; 
tfXLOG  -  HBEGIN,  BY  NAME; 

CNVTVX  -  CVTUBGN; 

SURFLOG  -  SBECIN,  BY  NAME; 

CNVTSRF  -  CVTSBGN: 

0  AG  LOG  -  GBECIN,  BY  NAME; 

CNVTOAC  -  CVTGBGN,  BY  NAME; 

END  SET_CMS_PROGRAM_VARIABLES; 


I 
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ROUTINE  CHOOSE 

t  This  routine  checks  value  of  current  prograa  status  variable  and  chooses  function  or  screen  desired  by 
CHS  user ) 

INPUT  (RSTATUS,  OLD  STATUS,  I); 

IF  RSTATUS  EgfpFlO 

THEM  RSTATUS  -  OLD_STATUS ; 

ELSE  OLD_STATUS  »  RSTATUS; 

PERFORM  SCREENJSELECTION ; 

END  CHOOSE; 

PROCESS  SCREENJSELECTION 

[This  process  selects  function  or  screen] 

IF  RSTATUS  K]  PF1 

THEM  CALL  HSTAT; 

IN  (OHSTAT,  APTSTAT(l),  INFURM(l),  CNFCRQ(CONFIND(l)> ,  CONFIND(l),  EQPLOG,  CNVTEQP,  WXLOG, 
CHVTUX,  SURF  LOG,  CNVTSRF) ; 

INPUT  (OLDHES,  RSTATUS);  (O'Hare  status  screen] 

ELSEIF  RSTATUS  EJ  PF2; 

THEM  CALL  LOGS; 

INPUT  (RSTATUS);  (log  selection  screen] 

ELSEIF  RSTATUS  W}  FF13; 

THEN  CALL  WLOC; 

INPUT  (HXLOG,  CNVTVX,  RSTATUS);  [wind  A  weather  planning  log  screen]; 


1 


I 


ELSEIF  ESTATUS  Eg  PPL*i 
THEM  CALL  SLOG; 

INPUT  (SUE? LOG,  CHVTSEF,  ESTATUS);  [airport  planning  log  acreenl 
ELSEIF  ESTATUS  Eg  PF15 
THEN  CALL  ELOC; 

INPUT  (EQPLOG,  CNVTEQP,  ESTATUS);  [equipaant  planning  log  acreen] 

ELSEIF  ESTATUS  Eg  PF16; 

THEN  CALL  CLOG; 

IN  (OAGDEM) 

INPUT  (PAGLOG,  CNVTOAG,  ESTATUS);  [denand  planning  log  acreen) 
ELSEIF  ESTATUS  Eg  PF3; 

THEN  CALL  AEPT; 

IN  (CNVTPEN) 

INPUT  (APTSTAT,  KIDFLAC,  CNVTAPT,  ESTATUS,  I);  [airport  atatua 
- acreen  (current,  forecaat)] 

ELSEIF  ESTATUS  Eg  PF4 

THEN  CALL  EOT! 

P<0UT  (ENYBQP,  ESTATUS,  I);  [equipment  atatua  acreen 
(current,  forecaet)] 


ELSEIF  ESTATUS  Eg  PF5; 


IN  (CNVTOAG) 

INPUT  (DEMAND,  CMVTDEM,  EStAIUS,  I);  [dana nd 
profile  acraen) 

ELSEIP  ESTATUS  K}  Pf6 

THEN  CALL  OHDEE; 

IN  (FECAEE,  INPOEM,  CNFGHQ,  EUYEQP,  MIDFLAG, 
SSmflst,  COMFIMD); 

MOOT  (ESTATUS,  I):  [ordered  Hat  of 
configurer Iona  acraen  (currant,  forecast)! 

KLSaXt  ESTATUS  «2  w 

THEM  CALL  QUEUE; 

INPUT  (QUELEM,  CNVTQLN,  ESTATUS); 
[currant  queue  length  acraen 1 

ELSEIP  ESTATUS  Eg  PF8; 

THEM  CALL  TSETUP; 

IN  (PECABE,  CMPGEQ,  CNVTDEM, 
DEPMAT,  FIXTBAV,  TBANLST, 
IMPOEM,  CONFIND,  CNDTN, 
ELGILTT,  CNVTQLN,  QUELEN); 

INPUT  (ESTATUS);  (ordarad  Hat  of 
tranaltlona  acraen) 


ELSEIF  ESTATUS  Eg  PF9 


2-69 


IN  (CONFIG,  CNFGRQ,  CONFIND, 
PRC  ARB.,  INFORM,  MIDFLAG, 
RWYEQP); 

INPUT  (RSTATUS,  I); 
[configuration  ini  oraatlon 
screen  (current,  forecast)) 

ELSEIF  RSTATUS  H}  PF10 

THEN  OLDJSTATUS  -  PF11; 

ELSE  CALL  MENUPRM; 

INPUT  (PARAM, 
CNVTPRM,  RSTATUS); 

OUT  (TERM);  [aenu 
screen  or  parsaeter 
screen 1 

END  SCREENS ELECT ION; 


0  L- 
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ROUTINE  TOLINK 

Trhls  routine  establishes  a  link  to  data  bate] 

1NT  IRETCD  [contains  return  code] 

CALL  COHMD;  (try  to  link  to  data  base) 

IN  (’  CP  LINK  K11576B  191  197  M  CMS  #•); 

OUT  ( IRETCD); 

[this  systen  routine  Issues  a  CP  or  CHS  nessage) 

IP  (IRETCD  GT  106)  AND  (IRETCD  LT  120)' 

THHJ  STOP;  (atop  progras  If  linkage  error  has  occurred] 
[Malt  If  another  user  la  linked) 

REPEAT  WHILE  (IRETCD  NE  0); 

CALL  C0M4D; 

IN  ('  CP  SLEEP  5  SEC#'); 

OUT  (IRETCD); 

CALL  COHMD; 

9  . 

IN  ('  CP  LINK  K11576B  191  197  N  CMS  #•); 

OUT  (IRETCD); 

EHDREPEAT : 

^  L  COHMD;  [once  linked,  access] 

IN  ('  ACC  197  t  #'); 

OUT  (IRETCD); 

END  TOLINK; 


ROUTINE  TODTACH 

”  [This  routine  detaches  user  froa  data  base] 

INT  IRETCD  [contains  return  code] 

CALL  COMMD;  (detach  and  release  data  base] 

IN  ('  CP  DET  197  #*); 

OUT  (IRETCD); 

CALL  COMMD; 

IN  (*  REL  197  #*); 

OUT  (IRETCD); 

END  TODTACH; 

ROUTINE  READER 

l  Alia  routine  reads  data  base  Into  current  global  variables] 
PERFORM  READ_DATA_BASE ; 


END  READER; 
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ROUTIHE  WRITER 

( This  routine  writes  most  current  version  of  deta  on  to  data  base! 
Open  STARTUP  file; 

Write  STORED; 

Write  ((MOW,  CNOW,  QHOW,  CVTQNOW); 

Write  (PNOW,  CVTPNOW); 

Write  ANOW; 

Write  CVTANOW; 

Write  RNOW; 

Write  DHOW; 

Write  CVTDNOW; 

Write  ENOW; 

Write  CVTENOW; 

Write  WNOW; 

Write  CVTVNOW; 

Write  SNOW; 

Write  CVTSNOW; 

Write  CNOW; 

Write  CVTGNOW; 

Close  STARTUP  file; 


END  WRITER; 
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ROUTINE  KERCE 

[This  routine  serges  and  reconciles  all  different  versions  of  data  base  and  prepares  most  current 
version  for  data  base.  A  nuaber  of  routines  that  perfora  global  updates  are  called  froa  this  routlnel 

DATA_STORED  -  'DATA  STORED  AT 

IF  (OLD_STATUS  E$  PF1)  AND  f  SUBSTR(OHSTAT.KSG,  1,  15)  NR  DAIASTORED) 

THEN 

STORED. OHSTATUS  -  GMT;  (tiae  update] 

ELSEIF  (OLD_STATUS  E<£  PF13)  AND  (SUBSTRCWXLOG.MSG,  1,  15)  NE  DAT A_S  TORE D 
THENCALL  KG  LORAL; 

INPUT  (WXLOC,  CNVTWX,  UBECIN,  CVTVBGN,  WNOW,  CVTVNOW); 

[This  routine  reconciles  different  versions  of  wind  and  weather  planning  log 
lnforaation ] 

STORED. APL0G1  -  GMT;  [tiae  updates] 

STORED. OHSTATUS  -  STORED.  APL0C1; 

ELSEIF  (OLD_STATUS  E£  PFU)  AID  (SUBSTRCSURFLOC.MSC,  1,  15)  NE  DATA_STORED 
THENCALL  SGLOBAL; 

INPUT  (SURFLOG,  CNVTSRF,  S BEGIN,  CVTSBGN.  SNOW,  CVTSNOH); 

[This  routine  reconciles  different  versions  of  airport  planning  log 
lnforaation] 

STORED . APL0G2  -  GMT)  [tiae  updates] 

STORED. OHSTATUS  -  STORED. APL0G2; 

ELSEIF  (OLD_STATUS  E£  PF15)  AND  ( SUBSTR( EQPLOG .MSG ,  1,  15)  NE  DATA_STORED) 
THENCALL  EGLOBAL: 

INPUT  (EQPLOG,  CNVTEQP,  EBEG1N,  CVTEBGN,  ENOW,  CVTENOU); 

[This  routine  reconciles  different  versions  of  equipment  planning  log 
lnforaation) 
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STORED. RWYLOC  -  GMT; 

STORED. OHSTATUS  -  STORED. RWYLOC;  [time  updates  1 
ELS  El  F  (OLD_STATUS  Eg  PF16)  AND  (SUBSTR(OAGLOG.MSG.  1.  IS)  NE  DATA_STORED) 

THE  NC  ALL  CGLOBAL; 

INPUT  (OAGLOG,  CNVTOAG,  G BEGIN,  CVTGBGN,  GNOU,  CVTGNOH); 

[This  routine  reconciles  different  versions  of  deeend  planning 
log  information] 

STORED. BMDLOC  •  GMT;  [time  update] 

ELSEIF  OLD_STATUS  Eg  PF3 
THEM 

LOOP;  [J  *  1  to  2] 

IF  SUBSTR(APTSTAT(J).MSG,  1,  15)  NE  DAIA_STORED 
THENCALL  AGLOBAL; 

INPUT  (APTSTAT(J),  CNVTAPT(J),  HIDFLAG(J)  , 
ABEGIN(J),  CVTABGN(J),  HBEGIN(J)  ,  ANOU(J)  , 
CVTANOW(J),  MfOW(J)); 

[Title  routine  reconciles  different  versions  of 
airport  status  Information) 

STORED. AIRPORT(J)  •  GMT;  [time  updates) 

STORED. OLIST(J)  -  STORED. AIRPORT(J)  ; 

STORED. CONF(J)  -  STORED. AIRFORI(J); 

STORED. IRANLIST  *  STORED. AIRPORT(J); 

ENDLOOP; 

ELSEIF  OLD_STATUS  Eg  PF4 
THEM 
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LOOP  1  (J  -  1  to  21 

IP  SUBSTR(RtfYEQP(J) .MSG,  1,  15)  ME  DATA_STORED 
THEMCA LI  8GMBAL; 

INPUT  (EUYEQP(J),  RBEGIN(J) ,  RNOW(J)); 

[ This  routine  reconcllee  different 
version!  of  equlpaent  status  equipment) 

STORED. RUNWAY(J)  *  GMT;  [tlae  updates) 

STORED  .AIRPORT(J)  ■  STORED.RUMHAY(J) ; 

STORED. OLIST(J)  *  STORED. RUNWAY(J) ; 

STORED. CONF(J)  “  SIORKD.RUNWAY(J)  ; 

STORED. TRANLIST  *  STORED. RUNVAY(J)  ; 


EMDLOOP; 

ELS  RIP  OLD_STATUS  EJ  PP5 
THEM 


MOP;  (J  •  I  to  21 

IP  SUBSTR(DEMAMD( J ) .MSG ,  1,  15)  NE  DATA_STORED 

THENCALL  DGLOBAL; 

IMOUT  (DEMAND(J),  CNVTDEM(J), 

DBEGIN(J) ,  CVTDBGN(J),  DNOU(J) , 
CVTDNOH(J)); 

(This  routine  reconciles  different 
versions  of  deaend  profile 
Intonation] 

STORED. DEMAND(J)  "  GMT;  [tine  updates) 
STORED.OLIST(J)  -  STORED. DEMAMD(J); 
STORED. CONP(J)  -  STORED. DEHAHD(J); 
STORED. TRANLIST  ■  STORED.DEMAND(J); 


ELSE1F  OLD_STATUS  £2  PFb 
THEM 

IF  SUBS TR(C0HFLST(1). MSG,  1,  IS)  ME  DAXAJSTORED 
THEMCALL  CGLOBAL; 

INPUT  (COMFIND(l),  CBBGIN(l),  CNOU(l), 

IPSD7  cvtqnoh,  Some)  ; 

[This  routine  reconciles  different 
versions  of  operstlng 
configuration  lnforestlon) 

STORED. OLIST(l)  -  GMT;  [Tine  updetes] 
STORED .COHF(l)  -  STORED. OLIST(l)  ; 
STORED. QLENCTH  -  STORED. OLIST(l)  ; 
STORED.  IRAKLIS T  -  SIORED.OLISTU)  ; 

IF  SUBSTR(COMFLST(2).HSG,  1,  15)  HE  DATASTORED 

THEMCALL  CGLOBAL; 

INPUT  (CONFINDU),  CBECIM(2),  CMOU(2), 
QNOff7  CVTQHOH,  *THO); 

STORED. 0L1ST( 2)  •  GMT;  [Tine  updetes I 
STORED «COMF( 2)  -  STORED. OUST(2); 

FLSEIF  COLD  STATUS  BO  FF7)  AND  SUBS TRCQUELEH. MSG,  1, 
IS)  ME  DATA_SIORED  - 

THEMCALL  QGLOBAL; 

INPUT  (QUELEN,  CMVTQLN,  Q BEGIN,  CVTQBGN, 
ISOT7  CVTQHOH); 

(This  routine  reconciles  different 
versions  of  current  departure  queue 
Information) 

STORED. QLEMCTH  -  GMT;  [Time  updates) 

STORED. TRAKUST  »  STORED. QLEMGTH; 
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ELSEIF  OLD_STATUS  E^  PF8 

THEM  STORED.  TRANUST  -  OfT;  [Tin  update] 
ELSEIF  OLD_STATUS  EJ  PF9 
THEN 


IF  SUBS  TR(CQNFIG(1). MSG,  1,  IS)  NE  DATA 

STORED  — 


THEMCALL  CGLOBAL; 

IMOUT  (COHFIND(l),  CBBGlN(l), 
CN0V(1),  QNOH,  CVTQMOW,  $ONE) ; 

STORED. CONF(l)  -  GMT;  (tin 
updates] 

STORED.OLIST(l)  -  STORED. CONF(l)  j 
STORED. QLENCTH  -  STORED. C0NP(1) ; 
STORED. TRANLIST  -  STORED. OOHF(l)  ; 

IF  SUBSTR(CONFIC(2).MSG,  1,  15) 
NE  DATA_STORED 

THEMCALL  CGLOBAL; 


IMOUT  (COMFINDC2), 
mffDl(2).  CN0U(2), 
QNOH,  CVTQMOW,  iTWO); 


STORED. CONFC2)  -  GMT 
[tin  updates] 
STORED.OLIST(2)  -  STORED. 
CONF(2); 


ELSEIF  (OLD  STATUS  Eg  PF11)  AND  (SUBSTR 
(P ARAM. MSG,  1,  15)  51_DATA 
STORED 
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THEHCALL  PCLOBAL; 

INPUT  (PA&AM,  CHVTPRM, 
PteGlN,  CVTFBGN,  PNOW. 
CVTPNOU); 

[This  routine  reconcile* 
different  version*  of 
paraaeter*  information J 

STORED. PARHOPT  -  CHI;  (time 
updates] 

STORED  .AlRPORT(l)  “  STORED. 
PARHOPT; 

STORED. AIRPORT! 2)  -  STORED. 
PARHOPT; 

STORED. OLlST(l)  -  STORED. 
PARHOPT; 

STORED. OLIST(2)  -  STORED. 
PARHOPT; 

STORED. CONP(l)  -  STORED. 
PARHOPT; 

STORED. CONP(2)  -  STORED. 
PARHOPT; 

STORED. TRANUST  -  STORED. 
PARHOPT; 


END  HERGE; 
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ROUTINE  ASSIGN 

[This  routine  produces  two  copies  of  global  variables.  One  to  be  used  In  lower  level  programs  and  other 
to  serve  as  original  version  until  next  update  cycle] 

STORED_DATA  -  'DATA  STORED  AT' ; 

PERFORM  SET_ORIGINAL_PROGRAM_VARIABLES; 

PERFORM  SET_CMS_FR0GRAM_VAR1ABLES; 

PERFORM  STORBD_TIME_SETUP; 

•  BID  ASSIGN; 

PROCESS  STORED_TIME_SET_UP 

[This  process  seta  up  Message  portion  of  global  variables  with  stored  tinsel 

APTSTATCD.HSG  -  DATA  STORED  CONCATENATE  STORED. AIRFORT(l); 

APTSTAT(2).MSC  -  DATA_STORED  CONCATENATE  ST0RED.AIRP0RT(2); 

RWYEQP(1).HSG  -  DATA_STORED  CONCATENATE  STORED. RUNWAY(l) ; 

RUYEQP(2).MSG  -  DATA  STORED  CONCATENAfS  ST0RED.RUNWAY(2) ; 

DEMAND(1).HSG  -  DATA~ST0RED  CUHCATIillATg  STORED. DEMAND!  1) ; 

DEMAND(2).MSG  -  DAT AJ STORED  CONCATENATE  STORED.CONF(l); 

CONFIG!  1)  .MSG  -  DATA  STORED  CONCATEKAfl  STORED. CONF( 2) ; 

CONFIG!  2)  .HSG  -  DATA- STORED  CONCATENATE  STORED. 0UST(1)  ; 

CONFLST(l)  .MSG  -  DATA  ST0RED~05h5aTENATE  STORED  0LISTC2); 

C0NFLST(2).MSC  -  DATA- STORED  CONCATENATE  STORED  PARMOPT; 

TRANLST.HSG  -  DATA  SIRRED  CONCILIATE  STORED  TRANLIST; 

EQPLOG.MSG  -  DATA  STORED  CONCATENATE  STORED  RtfYLOG; 

OUELEN.MSG  “  DATA  STORED  CONCATENAll  STORED  QLENGTH; 

OHSTAT.MSG  -  DATA- STORED  CONCATENATE  STORED  OKSTATUS; 

NX  LOG.  HSG  -  DATA  STORED  CONCATENATE  STORED. APL0G1; 

S  UR  FLOG.  HSG  -  DA?A  STORED  CONCATENATE  STORED.  APL0G2; 

0  AG  LOG.  HSG  -  DATA_3T0RED  COHCATEHATB  STORED.  DMNDLOG; 

END  STORED  TIME_SET_UP ; 
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ROUTINE  UPDATE 

Irhi*  routine  perforaa  a  nuaber  of  inner  model  computations  needed  during  each  update  cycle,  e.g. , 
weather  nlnina,  croaawind  and  tailwind  coaponenta  of  wind,  runway  cloaurea,  configuration  eligibility, 
etc,] 

LOOP;  [J  •  1  to  2] 

CALL  MINIMA;  {Coapute  ainiaa  baaed  on  equipaent  status ] 

IN  (RWYEQPO),  RUTMIN) ) 

INPUT  (APTSTAT(J)  , ^CNVTAPT(J)) ; 

CALL  WIND;  (coapute  croaawind  A  tailwind  coaponenta  of  wind  for  each  runway] 

INPUT  (APTSTAT(J) ,  CNVTAPT(J)); 

CALL  CLOSING;  [detemlne  runway  cloaurea] 

IN  CCNVTPRM) ; 

INPUT  (APTSTAT(J) ,  CNVTAPT(J)); 

CALL  PIUS;  [determine  capacity  file  number  for  each  configuration  and'  act  CNDTN  variable 
to  indicate  VFR(-l)  or  IPR(-2)1 

IN  (APTSTAT(J) ,  CNVTAPTC J)); 

INPUT  (FILENUH(J) ,  CNDTN(J) ) ; 

CALL  ELIG ;  (determine  eligibility  of  configurational 

IN  (CNPGRQ,  APTSTAT(J) ,  CNVTAPT(J)  ,  RWYRQP(J)); 

INPUT  (ELGBLTTKJ) ) ; 

CALL  PERCENT;  (compute  north  and  south  demands  baaed  on  flr-to-r unway  aaalgnaanta] 

IN  (CNVTDEH(J),  CNPGRQ); 

INPUT  (PRCARR(J) ) ; 
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CALL  CAPSAT;  [compute  capacity  and  balance  deaand  for  each  configuration] 
IN  (PRCARRC J) ,  CNFGRQ,  CAPPILE,  PILRNUM(J),  ELGBLTYC  J) ) ; 

INPUT  (INFORH(J)); 

END LOOP; 

CAU  QPIXj  [update  departure  runways  for  current  configuration) 

IN  (CNPGRQ(C0NFIND(1)); 

INPUT  (QUELEN); 


END  UPDATE; 
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ROUTINE  AG  LOBAL 

INPUT  (APTSTAT(I),  CNVTAPT(I),  MIDFLAG(I),  ABEGIN(I) ,  CVTABCNd),  NBECIN(I),  ANOW(I),  CVTANOH(I), 
HNOW(I)); 

(This  routine  reconciles  different  versions  of  elrport  status  Information! 

LOOP;  (It  “  1  to  12]  (for  each  runway! 

IP  APTSTATd)  .RUNWAY(C) .TOWER. ARR  NR  ABEGIN(I). RUNWAYOO  .TOWER.  ARR 

THEN  ANOW(I).RUNWAY(K). TOWER. ARE  -  APTSTAT (I ). RUNWAY (K). TOWER. ARR; 

KEE  APTSTAT(I) • RUNWAY (K) .TOWER. ARR  -  AN OWd).RUNWAY(R). TOWER. ARR; 

IP  APTSTATd)  .RUNWAY(K) .TOWER.DEP  HE  ABEGIN(I) .RUNWAY(K). TOWER. OEP 

THEN  ANOW(I).RUNWAY(K). TOWER.DEP  *  APTSTAT(I).RUNWAY(K). TOWER.DEP; 

ELSE  APTSTAT( I). RUNWAYOO. TOWER.DEP  -  ANOW ( I). RUNWAY (K). TOWER.DEP; 

IF  APTSTAT(I).RUNWAY(K).SURP  NE  ABEGIN(I) .RUNWAY(K) .SURP; 

THEM  ANOWU). RUNWAYOO.  $I*F  -  AmiAT(I>.RUNWAY(X>.SURF; 

EBE  APTSTATd)  . RUNWAYOO  .SURF  -  ANOW(I)  .RUNWAY(K)  .SURF; 

IF  APTSTATd) .RUNWAY(K).RRK  NE  ARECIN (I ). RUNWAY (K).BRK 

THEN  ANDW(I).RUNWAY(K).BRK  -  APTSTATd). RUNWAY(K).BRK; 

ELSE  APTSTAT (I). RUNWAY (K).ERK  -  ANOW(I).RUNWAY(K).BRK; 

END LOOP; 

IF  CMVTAPT(I) .WX.CEIL  HE  CVTABGNd).WX.CEIL 
THEN 

CVTANOW(I) .WX.CEIL  -  CNVTAPTd). WX.CEIL; 

AHOW(I). WX.CEIL  -  APTSTAT(I). WX.CEIL; 


ELSE 

CNVTAPTd). WX.CEIL  -  CVTANOW(I). WX.CEIL; 
APTSTATd). WX.CEIL  -  ANOW(I). WX.CEIL; 


IF  CNVTAPTCD.HX.VIS  NE  CVTABGNCl) .HX.VIS 
THEN 

CVTANOUCD.HX.VIS  -  CNVTAPTCI). HX.VIS; 
ANOHCD.HX.VIS  -  APTSTAT(I) .HX.VIS; 

ELSE 

CNVTAPTCI). HX.VIS  -  CVTANOUCD.HX.VIS; 
APTSTAT(I). HX.VIS  -  ANOU(I). HX.VIS; 

IF  CNVTAPTCI)  .HIND. DIR  HE  CVTABGN(I)  .HIND. DIE. 

THEN 

CVTANOHC I) .HIND. DIE  -  CNVTAPTCI). HIND. DIR; 
ANOU(I). HIND. DIR  -  APTSTAT(I). HIND. DIR; 

ELSE 

CNVTAPTCD.HIND.DIR  -  CVTANOH(I)  .HIND .DIE; 
APTSTAT(I). HIND. DIE  -  ANOUCl).  HIND.  DIR; 

IF  CNVTAPT(I)  .HIND. VEL  NR  CVIABGN(I).HIND.VEL 

THEN 

CVTAN0W(I).H1ND.VRL  -  CNVTAPTCI ) .HIND. VEL; 
AN0H(I).H1ND.VEL  -  AFTSTAT(l).UIND.VEL; 

ELSE 

CNVTAPTCI). HIND. VEL  -  CVTANOHC I). HIM) .VEL; 
APTSTATCD.HIND.VEL  -  ANOHCD.HIND.VEL; 

IF  MIDPLAGCI)  NE  HBEGINCI) 

THEN  HNOHCI)  -  MIDFUGCI); 

ELSE  HIDFLACCI)  -  HNOHCI); 
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ROUTINE  RGLOBAL 

INPUT  (RWYEQPU),  RBEGIN(I),  8N0W(I)>; 

[This  routine  reconciles  different  versions  of  equipment  status  Information! 

LOOP;  [K  "  1  to  12]  [for  each  runway) 

IF  RWYEQP(I) . RUNWAY (K)  .CATII  NE  RBEGINCI)  .RUNWAY(K) .CATII 

THEN  RNOVU).RUNUAY(E). CATII  -  RWYEQP(I) .RUNWAY(K) . CATII; 

ELSE  RVYEQP(I)  .RUNWAY(K)  .CATII  +  RNOW(I).  RUNWAY  00.  CATII; 

IF  RUYEQP(I).RUNUAY(R).LOC  NE  RBEGIN(I).RUNWAY(K).LOC 

THEN  RNOW(I).RUNUAY(K).LQC  -  RVYEQPCD.RUNWAYOO.LOC; 

H3g  RWYEQP(I)  .RUNUAY(K)  aL0C  -  RNOW(I)  .RUNWAY(K)  *LOC; 

IF  RUYEQP( I) •RUNUAY(K) .GS  NE  RBEGINU). RUHWAY(K).GS 

THEN  RK>UU).RUNUAY(R).GS  -  RVYEQPCI) «RUNUAY(K)«GS; 

B3E  RWYEQP(I) .RUNHAY(K) »GS  -  RNOW(I)  .RUNWAY(R) .GS ; 

IF  RUYEQP(I).RUNUAY(K).OH  NE  RBEGIN(I).RU)«AY<K).OM 

THEN  RNOHU).RUNUAY(K).OM  -  RVYEQP(I).RUNUAY(K).OH; 

ELSE  RUYEQPU).RUNUAY(E).OM  -  RN0W(I).RUNWAYOO.OM; 

IF  RVYEQPU).RUNHAY(K).HM  NE  RBEGINU). RUNWAYOO.KM; 

THEN  RNQWU).RUNUAY(K).KK  -  RWY£QP(I).RUNWAY(K).MM; 

S3g  RWYEQP(I).RUNWAY(R).MM  -  RNOH(I)  .RUNWAY  00 .KM; 

IF  RHYEQPU).RUNUAY(K).IM  HE  RBEGINU). RUNWAY(R). IN; 

WEN  RNOV(I).RUNWAY(K).IM  -  RWYK)P(I) -RUNWAY(K)  IN; 

TOI  RHYEQP(I).RUNWAY(K).IM  -  RNOUU).RU.WAY(K>.IN; 
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IF  RWYEQP(I)  .RUNWAYCK)  .RAIL  NE  RBEGINCl). RUNWAYCK). RAIL 

THEN  RNOWCl). RUNWAYCK). RAIL  •  RWYEQPCI). RUNWAYCK). RAIL; 

ELSE  RWYEQPCI)  .RUNWAYCK). RAIL  -  RNOWCl).  RUNWAYCK).  RAIL; 

IF  RWYEQPC I)  .RUNWAY (K)  .ALS  NE  RBEGINCl)  .RUNWAYOO  .ALS 

THEN  RNOW(I).RUNWAY(K).ALS  -  RWYEQPCI) .RUNWAYOO .ALS; 

ELSE  RWYEQPCI).  RUNWAYOO  .ALS  -  RNOWCl). RUNWAYCK).ALS; 

IF  RWYEQP(I). RUNWAYCK). RVR  NE  RBEGINCl) .RUNWAYCK)  .RVR ; 

THEN  RNOW(I).RUNWAY(K).RVR  *  RWYEQPCI). RUNWAYCIO.RVR; 

ELSE  RWYEQPCI).RUNWAYCK).RVR  -  RNQW(I)  .RUNWAY(R)  .RVR; 

IF  RWYEQPC  I) .RUNWAY ( K) .HIRL  NE  RBEG1NCI).RUNWAYCK).HIRL; 

THEN  RNOWCl). RUNWAYCK). HIRL  -  RWYEQP(I)  .RUNWAY(K)  .HIRL; 

ELSE  RWYEQP(I).  RUNWAYOO  .HIRL  -  RNOW(  I).  RUNWAYOO.  HIRL; 

IF  RWYEQPCI) .RUNWAY(R) *CL  NE  RBEGINCl)  .RUNWAYCK)  .CL; 

THEN  RNOWCl).RUNWAYCK).CL  -  RWYEQPCI) .RUNWAYOO. CL; 

ELSE  RWYEQPCI). RUNWAYOO  .CL  -  RNOW(I)  .RUNWAYOO  .CL; 

IF  RWYEQPCI). RUNWAYCK).TDZ  NE  RBEGINCl). RUNWAYCK).TDZ 

THEN  RNOWCl) .RUNWAYCK) .TDZ  -  RWYEQPCI) .RUNWAYCK) .TDZ; 

ELSE  RWYEQPCI). RUNWAYCK).TDZ  -  RNOWC I) .RUNWAYOO .TDZ; 

IF  RWYEQPCI). RUNWAYCK)  .NDB_VOR  -  RBEGINCl). RUNWAYOO  .NDB_VOR 

THEN  RNOWCD.RUNWAYCK).NDB  VOR  -  RWYEQPCI). RUNWAYCK) .NDB  VOR 
RWYEQPCI). RUNWAYCK). N5B_VOR  -  RNOWCl ). RUNWAYCK). ND8~VOR 

END LOOP; 


END  RGLDBAL; 
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ROUTINE  EGLOBAL 


INPUT  [EQPLOG,  CNVTEQP,  E BEGIN,  CVTEBGH,  ENOW,  CVTENOW); 

[This  routine  reconcile*  different  version*  of  squlpaent  planning  log] 

LOOP;  [J  *  13  to  IS]  [froa  13th  to  15th  Message  for  AC1 

ENOW. TAB  LE[J).RWY  -  EQPLOC.  TABLE!  J). Riff ; 

ENOW.TABLK(J) .EQUIPMENT  -  EQPLOG  .TABLE!  J). EQUIPMENT; 

ENOW. TABLE (J).OTS  -  EQPLOG. TABLE! J).OTS; 

ENOW. TABLE! J). RTS  -  RQP  LOG. TABLE  (J).  RTS; 

ENOW.TABLE(J) .REMARKS  -  EQPLOG. TABLE! J). REMARKS; 

CVTENOW. TABLE! J).OTS  -  CNVTEQP. TABLE! J).OTS; 

CVTENOW. TABLE! J). RTS  -  CNVTEQP. TABLE! J). RTS; 

EHDLOOP; 


END  EGLOBAL; 
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ROUTINE  DGLOBAL 

INPUT  (DEMAND(I),  CNVTDEM(I)  ,  DBEGIN(I),  CVTDBGN(I) ,  DNOW(I),  CVTDNOW<I))i 

[This  routine  reconcile*  different  versions  of  demand  profile  information! 

IT  CNVTDEMCI). ARE. TOTAL  NX  CVTDBGM(I).  ARR. TOTAL 

THEN 

DHOW(  I)  .ARR.TOTAL  -  DEHAND(I).ARR. TOTAL; 

CVTDNOV(I) .ASR. TOTAL  -  CNVTDEM(I). ARR.TOTAL; 

ELSE 

EBTOnXl). ARR.TOTAL  -  DNOW(I). ARR.TOTAL; 

CNVTDEM(I) .ARR.TOTAL  -  CVTDNOH(I) .ARR.TOTAL; 

IF  CNVTDEMCD.ARR.KUBBS  NX  CVTDRQM(I) .ARR.KlIBBS 

THEM 

DNOM(I).ARR.KUBBS  -  DBNAND(I) .ARR. RUBES; 

CVTDNOHC I) . ARR.EUBBS  -  CNVTDEK(I).  ARR. RUBES; 

ELSE 

DEMAND(I).ARR.KDBB$  -  DNOH(I).A>'  .KUBBS 
CNVTDEH(I).ARR.KDBBS  -  CVTDNOW(I) .ARR. KUBBS 

IF  CNVTOEH(I).  ARR  .PLANT  NR  CVTDBGN(I).  ARR. PLANT 

THEM 

DNOW(I). ARR. PLANT  -  DEMAND (I). ARR. PLANT; 

CVTDNOW(I) .ARR. PLANT  -  CNVTOEM(I) .ARR. PLANT; 

ELSE 

DEMAND(I). ARR. PLANT  -  DN0tf(I>. ASR. PLANT 
CNVTDEM(I). ARR. PLANT  -  CVTDNOV(I) .ARE. PLANT 

IF  CNVTDEM(I).ARR.CGT  NE  CVTDBGN(  I)  .ARR.CCT 

THEM 

DHOW(I).ASR.CGT  -  DEMAMD(I). ARR.CCT; 

CVTDNOUC I) .ARR.CCT  -  GNVTDEM(I) .ARR.CCT; 
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ELSE 

D£MAND(I).A8K.CCT  -  DNOU(I) .AW.CGT 
CNVTDEM(I) .ABE.OGT  -  CVTDHOW(I) .AUt.GCT 

IP  CHVTD£M(I).AEI.VAINS  HE  CVTDBGN(I).AU.VAINS 

THEN 

DNOW(I).ABR.VAINS  -  DEMAND(I) .AEE.VAINS; 
CVTDNOW(I)  .AEE.VAINS  -  CNVTDEH(I)  .AEE.VAINS; 


ELSE 

DEMAND(  I)  .AEE.VAINS  -  DMOH(I). AEE.VAINS; 
CNVTDHM(I).ABE.VAIMS  -  CVTDNOU(I)  .AEE.VAINS; 

IF  CNVTDSM(I).AHE.FAB»I  NE  CVTDKN(I).AEE.FAEM1 

THEM 

DMOU(I).ABE.FAEl«  -  DHUHD(I) .AU.PAUM; 
CVTDNOW(I).AEE.FAE)M  -  CHVTDEH(I) .ABE.PABMt; 

ELSE 

DEMAND(I).ABE.FABM<  -  DMOW(X) .AU.PAKJftj 
CNVTDEM(I).ABE.FAB>M  -  CVTSNOW(I)  .  ABE.FAHMf; 

IP  CNVTDBI(I)  .AHE.MUt_A  ME  CVTMGM( I > . AEE .  HH_A 

THEM 

DNOW(I).ABE.)«E  A  -  DEHAMS(I) .AEE.MCE_A; 
CVTDNOW(I).AHE.KKE_A  -  CMVTDEH(I) •  ABE.MEE_A; 


ELSE 

DBUND(I)  .ABE. IKE  A  -  DNOH(I)  .ABB.MCE  A; 
CNVTDEM(I).ASR.Mf_A  -  CVTDHOW(I) .  ABE.MIE_A; 

IF  CMVTUM(I).DEP. TOTAL  ME  CVn>8GH(I) .DIP. TOTAL 

THEM 

DMOIKD.HP .TOTAL  -  DBtAJUKD.DEP. TOTAL; 
CVTDMOH(I).DEP. TOTAL  -  CMVTDEM(I). DIP. TOTAL; 


1 


« 
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ELSE 

DEMAND(I). DEP. TOTAL  “  DNOW(I). DEP. TOTAL; 
CNVTDEM(I).D£P .TOTAL  ”  CVTDNOW(I) .DEP. TOTAL; 

IF  CNVfDEM(I).DEP.NORTH  HE  C VTDBGN ( I ) .DEP . NORTH 

THEN 

DNOW( I ) . DEP . NORTH  -  DB4AND(I)  .DEP.NOtLTH; 
CVTDNOW(I)  .DEP. NORTH  “  CNVTDEH( I)  .DEP .NORTH ; 


ELSE 

DEMAND(I)  .DEP.NORTH  -  DNOW(I). DEP. NORTH; 
CNVTDEM(I). DEP. NORTH  -  CVTDNOH(I). DEP .NORTH; 

IF  CNVTDEH(I). DEP. EAST  NS  CVTDBGN(I) .DEP. EAST 

THEN 

-  DNOH(I). DEP. EAST  -  DEMAND (I). DBF. BAST; 

CVTDNOH(I). DEP. EAST  •  CNVTDEM(I).DEP.EAST; 


ELSE 

-  DEMAND(I). DEP. EAST  -  DMOW(I).DEP.EAST; 

CNVTDEM(I). DEP. EAST  -  CVTDNOU(I). DEP. EAST; 

IF  CNVTDEM(I). DEP. SOUTH  NE  CVTDDGN(I). DEP. SOUTH 


DNO«(I). DEP. SOUTH  -  DBIAND(I) .DEP, SOUTH; 
CVTDNOU(I). DEP. SOUTH  •  CNVTDEH(I). DEP. SOUTH; 


ELSE 

DEMAND(I). DEP. SOUTH  -  DNOU(I).DEP.SOUTH; 
CNVTDEM(I) .DEP. SOUTH  -  CVTDNOW(I). DEP. SOUTH; 

IF  CNVTDEM(I). DEP. WEST  HE  CVTDBGN(I). DEP. NEST 

THEM 

DNOH(I). DEP  .WEST  -  DEMAMXI)  .DEP. WEST; 
CVTDNOH(I) .DEP. NEST  -  CNVTDEM(I) .DEP.NEST; 


i 


I 


1 
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ELSE 

DfMANDd) .DEP.WEST  -  DN0W(I).DEP.UEST; 
CMVTDEM(I) •DEP«VEST  -  CVTDNOH(I). DEP.WEST 5 

IF  CNVTDEM(I).OEP.MKB  D  HE  CVTMGM(I)  .DKP.MXE__D 


DNOU(I).DEP.MKE  D  ■  DEHAM>(I).DEP.MKE_D; 
CVTDNOU(I).DBP.KKE_D  “  CHVTDEH(I) .DEP.M*E_D; 


ELSE 


DEHAHD(I)  .DEP.HEK  D  ' 
CNVTDEH(I).KP.M*r_D 


DHOW(I) .DEP.KKE  D; 

■  CVTDHOW(I)  .DEPltaJ); 


END  DGLOBAL; 
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ROUTINE  CGLOBAL 

INPUT  (CONFIND(I),  CBEGIN(I),  CNOW(I),  QNOW,  CVTQNOV,  K); 

(This  rout In*  reconcile*  different  version*  of  operating  configuration'*  Information) 

IF  CONFIND(I)  HE  CBECIN(I) 

THEM 

CNOW(I)  -  CONFIMD(I); 

IP  IEJ  1 
THEM 

LOOP;  JJ  -  1  to  4) 

CVTQNOW(J)  •  Os 
OUU.qlU)  -  •  0's 

endloop; 

ELSE 

CONPIND(I)  -  CHOV(l); 

END  CGLOBAL; 

ROUTINE  PGLOBAL 

INPUT  (PARAM,  CMVTPRM,  PBEGIN,  CVTPBCN,  PNOW,  CVTPNOW); 

|  This  routine  reconcile*  different  veralon*  of  parameter*  Information] 

IP  CNVTPRM.ARR.CRSS  ME  CVTPBCN. ARE. CESS 

THEN 

PNOW.PARAMETER.AEE.OtSS  -  PAEAM. PARAMETER. ARE. OtSSs 
CVTPNOW. ARE. CESS  -  CNVTPRM.ARR.CRSS; 
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ELSE 

PARAM.PARAMETU.AU.CRSS  -  PNOW. PAAAMETER.AU. CESS; 
CNVTPEM.AU. CESS  -  CVTPNOW.AU. CESS; 

IP  CMVTP8M.AU. TAIL  ME  CVTPBGN.AU.TAIL 

THEM 

PNOW.PAEAMETEE.au. TAIL  -  PNOW. PARAMETER.  AU. TAIL: 
CVTPNOW.AU. TAIL  -  CNVTPEM . AU . TAIL i 

ELSE 

PAEAM.PAEAMETU.AU. TAIL  -  PMOH.PAEAMETER.AU. TAIL; 
CNVTPBM.AU. TAIL  -  CVTPNOW.AU. TAIL; 

IF  CMVTPBM.UP.CUS  ME  CVTPRCN.  DEP.  CESS 

THEM 

PMOW.PARAMBIEE.DEP .CESS  -  PAEAM. PARAMETER. DEP. CESS; 
CVTPNOH.DEP.CRSS  -  CNVTPEM.DEP.CESS; 

ELSE 

PARAM. PARAMETER. DEP. CESS  -  PNOW. PARAMETER. DEP. CESS; 
CNVTPIM. DEP. CESS  -  CVTPMOW. DEP. CESS; 

IP  CNVTPEM. DEP. TAIL  HE  CVTPKM.  DEP. TAIL 

THEM 

PNOW.  PARAMETER  .DIP  .TAIL  -  PARAM.  PARAMETU.  DEP.  TAIL; 
CVTPMOW. DEP. TAIL  -  CMVTPRM. DEP. TAIL; 


ELSE 

PARAM. PARAMETER. DEP. TAIL  -  PNOW. PARAMETER. DEP. TAIL; 
CMVTPRM. DEP. TAIL  -  CVTPMOW. DEP. TAIL; 


END  PC LORAL; 
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ROUTINE  UGLOBAL 

INPUT  (VXLOG,  CNVTWX,  UBECIN,  CVTHBGN,  UMOU,  CVTHNOH) ; 

[This  routine  reconciles  different  versions  of  wind  snd  weather  planning  log  Information] 

LOOP;  [ J  “  11  to  13)  [Prom  11th  to  13th  message  for  AC) 

UNOW.TABLE(J).TIME  -  WXLOG.TABLE(J)  .TIME; 

WNOW.TABLB(J).CEIL  -  WXLOC.  TABLE  (J).  CEIL; 

WNOW.TABLE(J)«VIS  -  WXLOC. TABLE(J) .VIS; 

WNOW.TABLE(J).OIR  -  WXLOG.TABLE(J) .DIE; 

VNOW .TABLE ( J ) . VEL  *  WXLOC.TABLEC J) .VEL; 

WNOW.TABLE(J). REMARKS  -  WXLOC.  T  ABLE  (J).  REMARKS; 

CVTWNOW.TABLE(J)  .TIME  ■  CNVTWX. TABLS(J)  .TIME; 

CVTWNOW.TABLE(J)  .CEIL  -  CNVTWX.TABLE(J).CEIL; 

CVTUN0W.TABLE(J).V1S  -  CNVTWX. TABLB(J). VIS; 

CVTWNOW.TABLE(J).DIR  -  CNVTWX. TABLE(J). DIR; 

CVTUNOW.TABLE(J)  .VEL  -  CNVTWX. TABLE(J)  .VEL; 


EMDLOOP; 

END  WGLOBAL; 

ROUTINE  QCLOBAL 

INPUT  (QUELEH,  CNVTQLN,  QBEGIN,  CVTQBCN,  QNOW,  CVTQNOW) 

[This  routine  recooclles  different  versions  of  current  departure  queue  Information] 

LOOP;  [J  “  1  to  A]  [up  to  A  departure  runways] 

IP  CNVTQUi(J)  ME  CVTQBGN(J) 

THEM 

QNOW.QUJ)  -  QUELEN.QL(J); 

CVTQNOW(J)  •  CNVTQLN(J); 

ELSE 

QUKLEN.QL(J)  -  QNOW.qL(J); 

CNVTQLN(J)  -  CVTQNOW(J) ; 

EMDLOOP l 


END  QCLOBAL; 
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ROUTINE  SG LORAL 

IHOUT  (SURTLOG,  CNVTSRT,  S BEGIN,  CVTSBCH,  SNOW,  CVTSNOV) ; 

[This  routine  reconciles  different  versions  of  airport  planning  log  Information] 

IQOP;  [J  *  11  to  13]  Ifron  11th  to  13th  Manage  for  AC] 

SNOW .TABLE(J). TIME  -  SURTLOG .TABLK(J) .TIME; 

SNOII.TABLE(J)  «RWY  ■  SURTLOG .Tg»LE(J ) .RUT i 
SHOW .TABLE(J). SURE  -  SURTLOG.TABLEC J) .SURT; 

SHOW. TABLE(J). IRAK  -  SURTLOG .TABLED  ).BRAK; 

SHOW.XABLE(J) .CLOSED  -  SURTLOG. TABLE(J). CLOSED; 

SNOW .TABLE(J) .OPEN  -  SURTLOG. TABLE(J). OPEN; 

SNOU.TAELE(J) .REMARKS  -  SURTLOG. TABLE(J) .REMARKS; 

CVTSNOW.TABLE(J)  .TIME  -  CNVTSRT. TAJBLE(J ) .TIME; 


EHDLOOP; 


END  SGIORAL; 
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ROUTINE  GGLOBAL 

INPUT  (OAGLOG,  CNVTOAG,  G BEG IN,  CVTGBGN,  GNOW,  CVTGNOW); 

[this  routine  reconciles  different  versions  of  densnd  planning  log  Information! 

LOOP;  [J  •  0  to  23]  [For  24  hours] 

GNOW.TABLE(  J)  .TTLARR  -  OAGLOG.  TABLE  (J)  .TTLARR; 

G NOW. TABLE (J ) .TTLDEP  -  OAGLOG. TABLED). TTLDEP; 

GNOW.TABLE(J)  .KUBBS  -  OAGLOG.TABLE(J)  .KUBBS; 

GNOW.TABLE(J).CGT  -  OAGLOG. TABLE(J). CGI; 

GNOW.TABLE(J) .VAINS  -  OAGLOG. IABLE(J)  .VAINS; 

GNOW. TABLE(J ).FARHH  -  OAGLOG. TABLED). FARMM; 

GNOW.TABLE(J). NORTH  -  OAGLOG. TABLE(J). NORTH; 

GNOW. TABLED  )  .EAST  -  0  AG  LOG. TABLED)  .EAST  J 
CNOW.TABLE(J). SOUTH  -  OAGLOG.  TABLED).  SOUTH; 

GNOW. TABLED). WEST  -  OAGLOG. TABLED). WEST; 

CVTGNOW .TABLE(J). TTLARR  -  CNVTOAG. TABLED)  .TTLARR; 

CVTCNOW.TABLBD). TTLDEP  -  CNVTOAG. TABLED). TTLDEP; 

CVTGNOW. TABLED). KUBBS  -  CNVTOAG. TABLED). KUBBS; 

CVTGNOW. TABLE(J). CGT  -  CNVTOAG. TABLED). CGT; 

CVTGNOW.TABLE(J) .VAINS  -  CNVTOAG.IABLE(J) .VAINS; 

CVTG NOW. TABLED ).FARHH  -  CNVTOAG. TABLED). FARMM; 

CVTGNOW  .TABLED). NORTH  -  CNVTOAG.  TABLE(J). NORTH; 

CVTG  NOW. TABLE(J). EAST  -  CNVTOAG. TABLE(J). EAST; 

CVTGNOW .TABLE(J) .SOUTH  -  CNVTOAG. TABLE(J). SOUTH; 

CVTGNOW. TABLED). WEST  -  CNVTOAG. TABLED). WEST; 


ENDLOOP; 


END  CGLOBAL; 


ROUTINE  CLOSING 


IN  (CNVTPIM); 

INPUT  ( ARPT_DATA( I )  ,  CNVRT_APT(I)); 

(this  routine  closes  runwsys  based  on  wind  conditions  and  weather  elnlea] 

LOOP;  (J  •  1  to  12]  (tower  lsposed  closures] 

ARPT_DATA(I).RUNWAY(J). CLOSED.  ARR  -  AKPT_DATA(I) .RUNUAT(J)  .TOWER. ARE; 

ARPT_DATA( I). RUNVAY(J). CLOSED. DEP  -  ARPT_DATA(I)  .RUNWAY(J)  .TONER. DEP; 

(closed  due  to  wind] 

JCP  (CNVRT _APT(I)  .RUNVAY(J) .CESS  CT  CNVTPRM. ARE. CRSS)OR(CNVRT_APT(I).RUNVAY(J). TAIL  CT  CNVTPRN. ARE. TAIL) 
THEN 

ARPT_DATA( I ).RUNHAY(J). CLOSED. ARR  -  *X 

IP  (CNVRT_APT(I)  .RUNUAY(J)  .CRSS  CT  CNVTPRM.DEP.CRSS)OR(CNVRT_APT(I).RUNHAY(J).TAIL  CT  CNVTPRM. DEP  .TAIL) 
THEN 

ARPT_DATA(I).RUNVAY(J). CLOSED. DEP  -  'X  ’; 

(dosed  due  to  elnlea] 

IP  (CNVRT_APT(I) .NX. CEIL  LT  CNVRT  APT(I) .RUNHAY(J)  CEIL)  OR  (CNVRT_APT(I) .HX.VIS  LT  CNVRT 

APT.RUNHAY(J).VIS) 

THEM 

ARPT_DATA(I).RUMUAY(J)  .CLOSED. ARR  -  'X 

ENDLOOP; 


END 


CLOSING; 
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ROUTINE  HIND 

INPUT  (ARPT  DATA(I).  CNRT_APT( I ) ) ; 

[this  routine  computes  cross wind  and  tailwind  components  of  prevailing  wind  and  seta  up 
corresponding  screen  data  fields] 


JTWO  -  2; 

ANGLE( 1)  -  220.; 

ANGLE! 2)  -  220.; 

ANGLE! 3)  -  270. j 
ANGLE! 4)  *  270.; 

ANGLE! 5)  -  320.; 

ANGLE!6)  -  320.; 

ANCLE! 7)  -  40.; 

ANGLE! 8)  -  40.; 

ANGLE!9)  -  90.; 

ANGLE! 10)  -  90.; 

ANCLEU1)  -  140.; 

ANGLE! 12)  -  140.; 

ARPT_DATA!I). RUNWAY. DIR  -  ARPTDATA! I ) .HIND.DIR; 

ARPT_DATA( I ) . RUNWAY . VE L  -  ARPT_DATAID.WIND.VEL; 

CONVRTAPT!  I). RUNWAY.  DIR  -  CNVRT_APT!I)  .HIND.DIR; 

CNVRTAPT! I). RUNWAY. VEL  -  CNVRT_APT( I) .WIND.VEL; 

ANGLE  -  ! ANGLE  -  CNVRT_APT!I) .RUNWAY. DIR)  *  0.01745;  (convert  to  radians] 
ARPT_DATA( I). RUNWAY. RVR  -  !2)  '  '; 

LOOP; 


CNVRT_APT! I ) .RUNWAY! J) .CRSS  -  CNVRT_APT{1) .WIND. VEL  *  ABS! SIN( ANGLE! J ) ) ) ; 
CNVRT  APT! I ) . RUNWAY (  J )  . CRS S  -  FLOAT ! FLOOR !CNVRT_APTf  I)  .RUNWAY! J)  .CRSS  +  .5)); 
ARPT_DATA( I). RUNWAY! J). CRSS  -  SUBSTR!F(CNVRT_APT! I ) .RUNWAY! J ) .CRSS. tTWO) ,1 ,2) ; 
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IF  ABS  (ANCLE(J) )  GE  1.57079 
THEM 

CNVRT  APT(l)  .RUNWAY(J)  .TAIL  -  0.0; 

ARPT_DATA(I).RUNWAY(J).TAIL  -  ’  O’; 

ELSE 

CNVRT _APT(I)  .RUNWAY(J)  .TAIL  -  CNVRT_APT{I).HIND.VEL  •  COS  (ANCLE(J)); 
CNVRT_APT<  1 ) . RUNUAY(J)  .TAIL  -  FLOAT(FLOOR(CNVRT_APT(I).RUMWAY(J).TAIL  +  .5)); 
ARPT_DATA( I ) . RUNUAY(  J )  .TAIL  “  SUBSTR{P(CHVRT_APT(I)  .RUMHAY(J)  .TAIL,tTHO),l  ,2) 

EMPLOOP; 


END  UIND; 
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ROUTINE  MINIMA 

IN  (RWYEQPd)  ,RWYMIN) 

INPUT  (APTSTAT(I),  CNVTAPT(I)); 

[This  routine  coaputea  celling  and  visibility  nlnlaa  based  on  existing  airport's 

{THREE  -  3; 

{FOUR  -  4; 


LOOP;  [J  «  1  to  12]  (for  each  runway ] 

IF  RWYEqPd).RUNHAY(J)  .CATII  (2)  '  ' 

THEM  [CATII  la  up] 

CNVTAPT(I) ,RtfT( J) .CEIL  -  RUTMIN(J). CAIII. NONE. CEIL; 
CNVTAPTd).RHY(J).VIS  -  RHTMIN(J). CATII. HONE. VIS; 

APTSTAT(I) .RWT( J)  .CEIL  -  SUBSTR(F(CNVTAPT(I).RUT(J).CEIL,  {FOUR),; 

C  -  SUBSTR(F(100.0  •  CNVTAPT(I).RWT(J).VIS,  {THREE), 1,3); 


APTSTAT(I) .RWY( J) #VIS  •  SUBSTR(C,1,1)  CONCATENATE  CONCATENATE 
ELSE  [CATII  Is  down] 

IF  (RHYBQd).RUNHAY(J).LOC  NE  (2)  '  ')  AMD  (RHTBQP(I).RUIWAT(J) 

THEN  [both  localizer  and  NDB_VOR  are  down] 

CNTTAPT(I).RHT(J).CEIL  -  10000.0; 

CNVTAPT(I) .RWT( J) .VIS  -  5.0; 

APTSTAT(I).RWT(J) .CEIL  -  (*)'  •; 

APTSTAK I ) . RWY( J )  .VIS  “  (A)  *  ' ; 


ELSE  [localizer  or  HDB_V0R  are  not  down] 

IF  (RVnqP(I).RUNUAT(J).LOC  MB  (2) 

—  E2  (2)  '  ' ) 


’)  AND  (RWYEQPd] 


equipment  status] 


L.*) ; 

SUBSTR(C,2,2) ; 
NDB_V0R  ME  (2)  '  ') 

i  .RUMUAT(J)  .NDB_VOR 


THEN  [Localizer  ie  down  end  HDB_VQR  le  up] 

CNVTAPT(l) .RWY( J) .CEIL  -  RWYMIN(J) •NDB  VOR. NONE. CEIL; 

CNVTAPT(I) .EHY(J) .VIS  -  RVYHIH(J).NDB_VOR.  NONE. VIS; 

IF  RtfYEQP(I).RUNUAY(J).RAIL  NE  (2)  *  ' 

THEN  [RAIL  ie  also  down] 

CNVTAPT(l) .RtfY(J).CElL  -  HAX(CNVTAPTd).RVY(J).CEIL. 
RHYMIN(J) .NDB  VOR. RAIL. CEIL) ; 

CNVTAPT(I).rW7(J).VIS  -  MAJ(CNVTAPT(I).RWT(J).V1S> 
RVYMIN(J)  .MDB_VOR.ALS.VIS) 

APTSTATd).RWY(J)  .CEIL  -  SUBSTR(F(CNVTAPT(I).RWY(J). 
CEIL, IFOUR), 1,4); 

C  -  SUBSTR(F(100.  *  CNVTAPT(I)  .RWY(J)  .VIS, (THREE)  ,1,3) 

APTSTAI(I).RWY(J)  .VIS  -  SUBSTR(C,I,1)  CONCATENATE 
CONCATENATE  SUBSTRCC.2 .2) ; 

ELSE  [localizer  le  up] 

IF  (RWYEQPCI).RUNHAY(J).LOC  BQ  (2)  '  •)  AND  (RHYEQP(I). 
RUNHAT(J) .CS  NE  (2)  *  *) 

THEN  (glide  elope  ie  down] 

CNVTAPTd).RWY(J) .CEIL  -  RWYMIN(J)  .U)C. NONE. CEIL; 
CNVTAPT(I).RHT(J) .VIS  -  RVYMIN(J).LOC. NONE. VIS; 

IF  RWYEQP(I).RUNHAY(J).NH  NE  (2)  '  ' 

THEN  [nlddle  nerfcer  ie  down] 

CNVTAPTd).RVT(J) .CEIL  - 
HAX(CNVTAPT(I).RUT(J) .CEIL, 

RHININ(J) .LOC.Mt.CEIL) ; 
CNVTAPT(I).RHT(J).VIS  -  HAX(CNVTAPTU) . 
RHT(J).VIS,  RUYKIN(J) .LOC.MM.VIS) ; 


TO!-; 


IF  RVYEQP(I).RUHVAY(J).RAIL  MR  (2)  •  • 

THEM  [RAIL  Is  also  down] 

CHVTAPT(I).RlfY(J) .CEIL  - 
MAX(CMVTAPT(I).RMY(J)  .CEIL.EWYHIM(J) 
.LOC. RAIL. CKIL; 

CMVTAPT(I).RMY(J).¥I3  - 
HAX(CNVTAPT(I).RVY(J)  .VIS  .RWYMIMC  J)  . 
LOC.RAIL.VIS); 

IF  RWYEQP(1).RDINAT(J).ALS  m  (2)  *  • 

THEM  [ALS  la  also  down] 

CNVTAPT(I) *RVT( JJ .CEIL  - 
MAX(anrTAPT(2).RtfY(J).CEILIRUYMIM(J) 
.LOC.  ALS. CEIL); 

CMVTAPT(I).RIfY(J).VIS  - 
NAX(CMVTAPT(I)  .RUT( J)  .VIS  ,RWYK1M(  J)  . 
LOC.ALS.VIS); 

APTSTAK I )  .R«  (  J  )  .CEIL  - 

SUESlR<F(CMVTAPT(I).RUY(J).CEIL.iPOU 

»).l.*)i 

c  -  srasn(F(ioo.  • 

CNVTAPT(1).EVY(J).VIS,$THREE)  .1.3); 

APTSTAI(I).RUT(J).V1S  - 
SUlSlm(C.l.l)  COMCATEMATE 

comcaiemate  suBSTTTOT; 

USE  I  local! IS r  la  up  and  slid*  slop*  la  up] 

IF  (RVTEQP(D.RUMHAY(J).LOC  BO  (2)  •  ')  AMD 
(RtfYBQP(I).RUMWAY(J).CS  EJ  (2)  *  ')  - 


THEM  [(lid*  slop*  1*  dawn] 

CMVTAPT(I).RVY(J).CEIL  - 
RHYM1N(J).ILS. HONE. CEIL; 


CKVTAPT(I).RVY(  J).VIS  - 

rhymim(j).ils.mone.vis; 


IF  RWYB)P(I).RUNAT(J).HN  ME  (2)  1  • 

THEM  (nlddla  narkar  la  alao  down] 

CKVTAFT(I).RWY(J) .CEIL  - 
HAX(CMVIAPT(2)  .kWI(  J)  .CEIL.RWYHIMU  ) 
.ILS.Wt  CEIL) ; 

CMVTAPT(I)  .RWT(J)  .FIS  - 
MAX(CMVTAPT(I)  .RV¥( J)  .VIS  .RWTKIMCJ)  . 
ILS.MI.TIS); 


IP 


(RUTBQP(I>.RDHHRT(J).tAIL  Wt  (2)  '  ') 
OR  (kWYBQP(I).kUNUAT(J).Al3~ME  (2)  *  *) 


THEM  [RAIL  la  alao  down  or  ALS  la  down) 


CMVTAPT(I).RUT(J).CRIL  - 
HAXCCMVTAPT(l)  .RVT(J)  .CEIL.RUTHIM(J) 
.RAIL  ALS. CEIL); 


CMVTAPT(I).RWY(J).VIS  - 
NAX(CMVTAFT(I)  .RWT(J)  .VIS.RVYMIH(J)  . 
RAILALS.VIS); 

IF  (RVT1QF(I).RDNUAT(J).TDZ  ME  (2)  '  ’ 

THEM  [TDZ  la  alao  down] 


CMVTAPT(I)  .RHT( J)  .CEIL  • 

MAX<  CMVTAFT(I)  .RHT(J)  .CRIL.RUTHIM(J) 
.ILS. TDZ. CEIL); 
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CKVTAPT(I). ROTO).  VIS  * 
NU(CWUR(I)  .ROT(J)  .VIS.ROTMINO)  . 
ILS.TDZ.VIS); 

IT  (ROTEQP(I).RUNWAYO).CL  HE  (2)  '  ' 

THEM  [CL  la  also  down) 

CHVTAPT(I). ROTO). CEIL  - 
MAX(CNVTAPT(I)  .ROTO).CEIL.ROTMIN(J) 
•US  .CL.  CEIL); 

CNVTAPT(I). ROTO). VIS  - 
MAX(CNVTAPT(I)  .ROT(J)  .VIS.  ROTMINO)  . 
ILS.CL.VIS); 

APTSTAT(I). ROTO). CEIL  - 
SUBSTR(FCCNVTAPT(I).ROTO)  .CEIL.tFOU 

R>  »*) » 

NJ  C  -  SUBSTR(f(I00.  *  CNVTAFT(I). 

1  ROTO).  VIS,  iTHREE)  .1.3) ; 

APTSIAT(I). ROTO). VIS  - 
SUBSTS(C,1,1)  CONCATENATE 
COHCATEMAIE  SUBSTrO,2,2)  ; 

ROTEQP(I).AUNWAYO).HIRL  ME  (2)  •  • 

THEM  [HIRL  la  down) 

CHVTAPT(I). ROTO). VIS  -  2.0; 

APTSTATC I ) .ROTO ) •  VIS  -  '2.00*  5 


IF 


BMP  MINIMA; 


voi-; 


K) 


ROUTINE  ELIG 

IN  (CNFGRQ,  APTSTAT(I) ,  CNVTAPT(I),  RMTEQP(I)). 


~""~~lThlii^routIne^  determine*  eligibility  of  coof  lgurotlooo  booed  OO  run;  cloauree, 

1 H  nn a  ini  HUiouat  itfttUl] 


PERFORM  CONFIG0RATION_ID_SET_UP  j 
♦TWO  -  2; 

BLGBLTY(I) .ID  -  (73)  'O'B; 

ELGBLTT(l) .NIM  -  0; 

IP  (CNVTAPT(I) .WX.CEIL  LT  100.)  OR  «*mPTU>.HX.VU  H  •»>  1“  c'Uln*  U  b*1°"  100  *“* 
visibility  ll  below  715) 

THEN  ELGBLTY(I) .10  -  (73)'1*B  (oil  configuration*  on  Ineligible] 

PERFORM  BEL0W_200_CEIUNG_PUIS_EQ0IP«NTJ)UTlCE_EUCIIILin_CmCRi 

PERFORM  RUNWRY_CU)3URE__EUGIBIUTY_SETJIP  i 

^OOF;  IJ  -  1  To  73]  (Up  to  73  poselbl*  configuration*] 

BFLAC  -  'O'B  (Sot  eligibility  flag  to  •eligible'  1 
ora  men  RUNViY_CU)SURE_K110IBlLITT_CHECKi 
IF  (Configuration  J  1»  Ineligible] 

THEN; 

ELSE 

PERFORM  1ELOW_200_CEILIMG_ELICI1ILITT_CHECR; 

IF  (cooflguratloo  J  la  Ineligible] 

THEM; 


ELSE 
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PERFORM  BEIOW_.3  VIS_PIOS_NON_RVi_CONPIGURATIOH_RLICIBILITY_CHECE; 
IF  [configuration  J  1»  lnollglklol 


PERFORM  BELOW  1000_CEIL_BELOW_3_VIS_ELIGIBILITY_CHECK; 
If  [configuration  J  la  lnallgiblel 


EMDIOOP; 


PERFORM  BETWEEN  4800  TO  200  CRILING_AND_5_TO_.25_V1S 
PLUS  KQUIPMHfr_OOTA£R_ELIGIBILITT_CHBCE; 

IF  [configuration  J  la  inallglbla] 


PERFORM  HOLD_SHOET_EUCIBILirr_CHECK; 

EL£RLTY(I).1D  -  SUBSTR(ELCBLTT(I).ID,1,J-1> 
CONCATENATE  EFIAC  CONCATENATE 
SOUSdUlLTYd)  .ID.J,  73-J) ; 


(J  -  1  to  731 


IF  SUBSTR<ELGBUY(I>.IDPJ,1)  “  *0'E 

THEM  ELGBLTT(I) .MUM  ■  EU»LTT(I).mM  ♦  1) 


EMDIOOP  i 


END  ELIC  j 
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PROCESS  CONFIGURATION  ID  SET  UP 


(This  process  Initialises  certain  necessary  varlablea  for  ELIG  routine ) 
BZERO  -  (12)’0'B; 

(aet  up  parallel  runway  configuration  ID'sJ 


PARAPP(l) 

PARAPP(Z) 

PARAPPOl 

PARAPPC4) 

PARAPP(S) 

PARAPP(6) 


'llCOOOOOOOOO'B  CONCATENATE  BZERO;  [4R,  4L] 

’ 001100000000 •»  CONCATENATE  BZERO;  [9R,  9L] 

' 000011000000 'B  CONCATENATE  BZERO;  [14R,  141) 
■OOOOOOllOOOO'B  (JOttJATlIBHr  BZERO:  [22R,  221) 
*000000001100 'B  CONCATENATE  BZERO;  (27R,  27 L] 
•0000000000011*1  CONCATENATE  BZERO;  [32A,  321 J 


[aet  up  certain  dual  runway  configuration  ID's] 


DUALAPP(l)  -  •  101000000000 'B  CONCATENATE  BZERO;  [4R,  9R] 
DUALAPP(2)  -  1 001010000000' B  CONCATENATE  BZERO;  [9R,  14R) 

[aet  up  triple  runway  configurations) 


TRIPAPP(l) 

TRIPAPPC2) 

TRIPAPPO) 

TRIPAPP(4) 

TRIPAPP(5) 

TRIPAPP(6) 

TR1PAPPC7) 

TRIPAPP(S) 


’ 101100000000 'B 
1 001011000000 <B 
'001010100000 ’B 
' 000011010000 'B 
*000010110000 'B 
' 000010100100 *B 
* 000000101100 ' B 
*000000001X01 'B 


CONCATENATE 

COHCABHAW 

CONCATENATE 

ZSSESBSSS 

WCITHMl 

MtKAfUAR 

toNiA'ffigfl 

cowarmn 


BZERO; 

BZERO; 

BZERO; 

BZERO; 

BZERO; 

BZERO; 

BZERO; 

BZERO; 


[4R,  9R,  9L] 
[9R,  14R,  14L) 
[9R,  14A,  22R) 
[14a,  22R,  22L) 
[14A,  22R,  221) 
[14A,  22R,  27L] 
[22R,  27R,  27L] 
[27A,  27L,  32X) 


(set  up  hold  short  configurations) 


HLOSHRT(l)  -  ' 000010000100 'B  CONCATENATE  BZERO;  [14R,  27X) 
HLDSHRTC2)  -  '00000000101 'B  CONCATZNAf*  BZERO i  [27L.  32X1 
HL0SHRTO)  -  ' 000000101000 'B  MHgATBKTl  BZERO;  [22A,  27R) 
HLDSHRT(4)  -  '0010 10000000 'B  CONCATENATE  BZERO;  [9t,  14R] 


END  CONFIGURATION^  SETUP; 
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PROCESS  RUNUAY_CL0SURE_ELIGIBIL1TY_SET_UP 

[This  process  set a  up  certain  necaasary  variables  for  ZLIG  routine  In  order  to  check  for  eligibility 1 
IP  APTSTAT(I).EUNVAYU).CLOSRD.AHR  E£  (2)  ’  * 

THEM  AINELIG  -  'O'l; 

ELSE  AINELIG  -  'l'B; 

LOOP;  [J  -  2  To  12) 

IF  APTSTAT(I ) .RUNUAYC  J ) aCLOSEB* ARE  ££  (2)  '  ' 

THEN  AINELIG  -  AINELIG  CONCATENATE  'O'B; 

ELSE  AINELIG  •  AINELIG  CONCATENATE  'l'B; 

BNDLOOP ; 

IF  APTSTATU).EUNUAYU).CU>SED.DEP  Eg  (2)  '  ' 

THEN  DINELIC  •  'O'B; 

ELSE  OINELIG  •  'l'B; 

LOOP;  (J  -  2  to  121 

IF  APTSTAT(I) «RU1MAY( J ) .CLOSED. DEP  EJ  (2)  '  ' 

THEN  DINELIG  -  DINELIC  CONCATENATE  'O'B; 

ELSE  DINELIG  -  DINELIG  CONCATENATE  'l'B; 

ENDLOOP; 

INELIC  “  AINELIG  CONCATENATE  DINELIC;  [net  up  an  ID  for  dosed  runways] 

(set  up  an  ID  for  non  EVE  runways  1 
RVRCK  “  "B; 
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LOOP;  IK  -  1  to  121 

IF  KVYEQP(I).RUNUAY(K)aKVK  NS  (2)  '  • 
THEM  RVKOt  *  WICK  COHCmiUTK  *1'» 
ELSE  RVSCK  -  mat  COHCATnurE  ‘0'> 

EMDLOOP; 

RVRCK  -  RVSCK  COMCATKMATE  RZERO; 

EMP  RUNWAT_CLOSURE_EUGIBILITY_SET_DPj 
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PROCESS  RUMWAY_CLDSUM_ELIGIBIUTT_CHEC1 

(This  proceu  detcnloti  eligibility  of  configurations  with  runway ■  closed] 

IF  ((CNPGRQ(J).ID)  *HP  (MELIC))  HE  (20  »0«B 

THEM  EFUG  •  'l'B 

[if  one  or  aore  of  cloned  runways  are  in  configuration  J  than  that  configuration  la  Ineligible] 
END  EUNWAY_CL0SUEE_ELICIB1LITY.  CHECKS 

PROCESS  BELOW_200  CEILING_KUGIBILITY_CHICK 

rihia  process  Teternlnes  eligibility  of  configuratloaa  with  calling  below  200] 

IF  ( CNVTAPTC 1) •WX.CEIL  LI  200.)  AND  ((CKFGtQ(J).ID)  AND  (FSRAPFO))  NE  PAEAPPO)) 

THEN  EFUG  •  'l'B 

[if  the  celling  la  below  200  and  configuration  J  la  other  than  parallel  14'a  then  it  is 
ineligible] 

END  BELOW  200  CEILING  ELIGIBILITY  CHECK 


PROCESS  BEL0V_.5_VIS_PLUS_N0N  EVE  C0NFIGURAII0N_ELIG1BILITT_CHECK 

[This  process~deteralnes  eligibility  of  configurations  with  visibility  below  .5  and  non-EVE  runways] 

IF  (CNVTAPT(I).WX.VIS  LT  .5)  AND  ((CNFGEQ(J).ID)  AND  (EVKOC)  «  'O'  B 

THEN  EFUG  -  'l'B 

[if  the  vlslolllty  is  below  <S  and  there  are  non  RYE  runways  in  configuration  J  then  it  is 
ineligible]  ~ 

END  BEL0W_.5_VIS_PLUS_N0N_EVR_CONFIGURATI0N_EUGIBIUTY_CHECKi 


in-; 


KJ 


PROCESS  BELOW_800_CEIL_2_VIS_ELIGI*ILITY_CMRCK 

[this  process  detersives  eligibility  of  conf lgurations  with  celling  end  visibility  below  800  end  2 
respectively) 

IP  CNVTAPT(I).WX.CEIL  LT  800)  OR  (CHVTAPT(I).WJC.VIS  LT  2) 

THEN 

FLAG  -  'O'Bi 

REPEAT  UNTIL  (FLAG  -  'I'D;  [2  ■  1  to  6] 

IF  ((CMFCBO(J).IP)  RHP  (FARAFF(K))  EQ  PARAPPU) 

THEM  FLAG  -  'l'B; 

ENDREPKAT; 

IF  FLAG  ME  'l'B 

THEN  EFLAG  -  ’l'B; 

[If  visibility  Is  below  2.  or  celling  Is  below  800  sll  non  parallel  configurations  an  Ineligible) 
END  BELOHJ800  CEIL  2  VIS_ELIGIBILITY_CHECE; 
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rape  ESS  BEIX>W_1000_CEIL_3_VIS_ELIG1BIUTY_CHKX; 

I  This  process  dscsraloss  eligibility  of  configurations  with  coiling  end  visibility  below  1000  end  3 
respectively] 

IF  (CNVTAPT(I).tR.CElL  LT  1000.)  00  (CMVTgPT(l) .WX.VIS  LT  3))  AMD 
(((cmfgrq(i).idTamd  (teipappu))  iq  itiPAPP(i)Tot 
((CMFGBQ(J).ID)  AlB-(SIPAPP(2))  EjltIPAPP(2))  (ML 
((CMPGtq(I).ID)  AMD  (1tlPAFF(3))  M  TtIPAPP(3))  5f 
((amatq(j).iD)  TXB  (tupapko)  a  tmpapp(D)  at 
((CHfGtq(I).lD)  T3S  (ltlPAPP(3))  MTtlPAPPCS))  5T 

((CKKtq(j).iD)  UK  (bimwo)  M  vunnlt))  ot 

((CHPCtqCl).ID)  585  (ttlPAPPO))  S  TtlPAPP(7))  W 
((CNPGtq(J).ID)  D®  (mlPAPP(8)>  5  IUPAPK8))  ST 
((CMTCtq(J).ID)  AND  (D0ALAPPU))  M  DUALAPP(l))  08 
((CNPGtq(J).ID)  55  (WAUPK2))  £  D0ALAPPU))) 

THEM  KPLAC  -  'l'»; 

Uf  the  celling  Is  below  1000  sod  visibility  is  below  3  then  triple  end  certelo  duel 
couf lgurstloas  ere  Ineligible] 


END  BEL0O_1000_CEIL_l_yiS_EUG18ILlTY_CMCEi 


2-113 


a 


PROCESS  BETV£EN  4800_TO_200_CEILING_AND_5  TO_.25_VISIBILITY_PLUS_EQUIPMENT_OUTACE  ELXCIBILITYjCHECK 

(This  process  determines  eligibility  ol  configurations  with  celling  between  207  and  4800,  visibility 
between  .23  and  S  and  certain  equipaent  Inoperable] 

IF  ((CNVTAPT(I).WX.CEIL  LT  1000.)  AMD  (CNVTAPTU).HX.CEIL  GE  200))  OR 
((CNVTAPT(X).tfX.VIS  LT  3.)  AND  (CNVTAPT(I) .HX.V1X  GE  .25)) 

THEN 

REPEAT  UNTIL  (RFLAC  “  ’l'B);  (K  -  2  to  12  BY  2] 

TT  TrWyeqp(i) .RUNVAY(K).GS  NE  (2)  1  '  OR 
RWYEQP(I).RUNWAY(K— 1).£S  NE  (2)  '  '  OR 
RHYEQP(I).RU1MAY(K).0M  NET2)  '  '  OR 
RWYEQP(I)  .RUNHAYCK— 1)  .OfOiE  (2)  ’  T_0R 
RVYEQP(l) .RUNHAY(K) «KH  NET2)  '  '  OR 
RUYEQP(I).RUNHAY(R-1).NM  NE  (2)  '  T~0R 
RUYEQP(I) .RUNUAY(R) .ALS  NE  (2)  '  '  OR 
RWYEQPC  I)  .RUMUAY(E-l)  .ALS  NE  (2)  •  AMP 
((CNFGRQ(J).ID)  AND  (PARAPPCR/ITVO)  )  Eg  PARAPP(K/tlWO) 

THEM  EFLAC  -  'l'B; 

(If  celling  la  between  1000  to  200  and  visibility  la  between  3  and  .25  and  any  of 
the  following  equipaent:  glide  slope,  outer  Barter,  middle  Barter,  or  ALS  la  out 
than  parallel  configurations  are  Ineligible) 

EMDREPEAI 

IF  (  (CNVTAPT(I).WX.CEIL  LT  4800)  AND  (CNmPT(I).ia.CElL  GE  200))  OR 
((CNVTAPT(I).UX.VXS  1^5. )  AND'TO(VTAPT(I).I(X.VIS  GE  .75)) 

THEN 

REPEAT  UNTIL  (EFLAC  -  'l'B);  (R  -  2  to  12  by  2) 

IF  i[RUEQP(X).RUNHAY(E)  ,LDC  ME  (2)  *  * )  OR  (RHYEQP(I).R0NUAY(E-1).UK  NE  (2)  •  ') 
AND  ((CNFCRQ(J).XD)  AND  PARAPP(R/lw5T)  E^  PARAPP(R/*TVO) 

THEN  EFLAC  -  'l'B; 

(if  celling  la  between  4800  and  200,  and  visibility  Is  between  5  and  .25  and  loca liter  la  out,  than 
parallel  configurations  are  ineligible] 

ENDREPEAT; 

EBP  BE1WEEN_4800_TO_200_CEXUNG_AND_5_T0.25_VISIBILITY_PLOS_EQUIPNENT_OUTAGE_EUC1BXUTY_CHECR; 
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ro 


I, .  (cmBWJ-Bicn^  a  «»  -)  « (mst«a)..ow«c7).«s  «)  •  •»  as 

~  (CNPGEQ(I).ID  AMD  HLDSH»I(3)~B  HUJSHttO) 

THEM  EPLAC  -  *1’» 

THEM  EPUG  -  Tli 

ip  (aptstat(i).h™het(5).« V> « ««wk*.»  *s> *««*»  » “u>SHtI(4)) 21 

TfCHFGEQ(J).ID  MU  HLBSHEIU))  gl  HUS*«I>> 

them  true  -  'i’»i  ‘ 

end  HOLD_SHQET_EUGI»IUTT_aiKE; 


ROUTINE  FILES 

IN  (APTSTAT(I).  CNVTAPTd)); 

INPUT  (FILENUH(I),  CNDTN(I)); 

[This  routine  deteralnaa  capacity  fils  number  for  each  coof lgurstioo  sod  sets  CNDTN  variable  to 
Indicate  VFR(-l)  or  IFI(-2)] 

LOOP;  [N  ■  1  to  73)  [determine  appropriate  capacity  file] 

IF  (CNVTAPTd).WX.CKIL  LI  800)  OR  (CNVTAPT(I).WX.VIS  LT  2) 

THEN 

CNDTN(I)  -  2; 

FILENUM(I).CONF(N)  -  3; 

REPEAT  WHILE  (PILEMtM(I).CONF(N)  E£  3) ;  [K  -  1  to  12) 

IF  (APTSTAT(I).RUMUAT(K).BK  B£  'X  ’ 

THEN  FILENUM(I).CONF(M)  -  4; 

EMPEEPEAI; 

ELSE 

aromd)  -  ij 

FILENUMd).CONF(N)  -  1; 

REPEAT  WHILE  (FILENUH(I).CONF(N)  E£  1)  ;  [K  -  1  to  12) 

IF  (APTSTATd).RUNUAT(E).KK  'X  • 

THEN  FILENUMd).CONF(N)  -  2; 

SHOE EP  EAT; 

END LOOP; 

END  FILES; 


ROUTINE  PERCENT 


IN  (CNVTDEHd) ,  am»Q); 

INPUT  (PRCARR(l); 

[This  routlno  coaputaa  north  and  aouth  daaanda  baaad  on  flr-to-ruooay  aaal [noant ■  plua  par can  tag* 
of  arrimla) 

P1HP0BM  INITIALIZATION,^  PRRCHTT); 

PRCARRC I) .TOT  AAA  -  CNVTDM(I) .AIR. TOTAL; 

PRCARRC I ) .TOTDCP  -  CNVTMMCI)  .DIP. TOTAL; 

LOOP;  [J  -  1  to  731 

PRCARlCl).CONPC  J)  .NARRDRM  -  0; 

PSCARS(I).CONP(J).SAUnM  -  0) 

[coaputa  total  arrival  daaand  for  north  conplax) 

LOOP;  HI  -  I  to  61 

IP  (CNPCRQ(J).ID  AND  COM,LRX.AaORTRI(Kl))  W  0 
THIN 

TEMP  -  COMPLZXJIORTH2  Kl); 

LOOP;  (K2  -  1  to  61 

IP  CNPCRQU).ARR(U)  DJ,  IMP 

THIN  PRCAU.CONP(J).RARRSCH  -  PRCARR(I) .COMP(J) .NARRIXM  A 
DOWT.AIR(K2); 

ENDLOOP; 

ENDLOOP; 

[cuaputa  total  arrival  daaand  for  aooth  eaaplaa] 

PRCARRC  I)  .CONF(J)  .SARRDCM  -  PACAAAU  )  .  TOTARR  -  PRCARRC  I)  .CONPCJ)  .NAARJNW; 

[coaputa  total  dapartura  daaand  for  north  c nap lari 
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loop-,  [n  -  i  to  &] 

IF  (CNFGSQ(J).ID  AMD  COMPLEX. DNOftTUl(Kl))  HE  0 
THEM 

TEMP  -  COMPLEX  .HOETH2  XI); 

LOOP:  (K2  -  1  to  SI 

IF  CMFGEQ(i).DEP(K2)  TEMP 

THEM  PHCAU(I).CONF(J).DEPDEM  *  PECARR(I).C0NF(J).MDEPD1M  +  DUMMY. 
DEP(K2) ; 

EMDLOOP; 

BMP  LOOP; 

[caaputc  total  doportur*  d— »nii  for  south  coaplax] 

PHCARE(I).GOMF(J).SDEPflDf  -  PBCiBH(I).T0mP_PtCAU<I).C0NF(J)  .NDIPDEM; 

[coaputa  parcantagaa ] 

IF  (PHCAU(I).COMF(J).MSOsn  ♦  PEC*IE<I).COM»(J).MA«tIWM)  E£  0 
THU  PftCAUL(l)aCOMF(J)aim£NT  ■  0*5: 

gat  ?HCARR(I).GONP(J).MIEOfT  -  PtCME(I).COMF(J).MAatDM/(PtCAUL(I).COMF(J).MAElDCH  + 
PtCMUtC  I)  ,00MF(J)  .NDEPHBO ; 

IF  (PECiU(I).COM7(J).SOEPD«  ♦  FBCAU(I).COMP(J),S«UMM)  Eg  0 
THEM  PECAEE(1).C0N7(J).8PECMI  •  ,J; 

PECAEE(I).COMF(J).SPECMT  •  PEQUJL(I).COHF(J).SA>EDM/(F>CME(I).COMr(J).SaUMM  + 
PECME(I)  .COMF(J)  .S  DEPOEM) ; 

EMDLOOP; 


EMD  PEECEMT; 
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PROCESS  INITIALIZATION 

[Thli  process  performs  loicislisecloo  for  PERCENT  routine] 
BZEXO  -  (12)  *0*1; 

COMPLEX. MORTHld)  •  ■ 010000000000 *1  C0NCATIXAT1  1ZEE0; 
COMPLEX  .AMDRTHld)  •  ’ 000100000000* •  CCTQgBBBf  UBO; 
COMPLEX.  ANOUHM  3)  -  * 000001000000'  ■  CONCATENATE  EZXSO; 
COMPLEX. AMORTU  1C 4)  -  • 000000010000*1  C5MC1TBUH  1ZB0; 
core  LEX. AMOtTHl(S)  -  *000000000100*1  OTCJHBB11  KUO; 
COMP  LEX. ANOmUCt)  -  *000000000001*1  CONCATENATE  UBO; 

COMPLEX. M0UH(1)  -  KUO  CONCATENATE  *010000000000*1; 
COMPLEX  .Mould)  *  UBO  COMCATIMAT1  *000100000000 '1; 

COMP  LEX  .M0ETHO)  -  UBO  MHCHBUH  '000001000000*1; 
coMPLEx.motnd)  «  lion  OWilfimi  'oooooooioooo'i; 

COMP  LEX.  Mould)  -  no  CONCATENATE  '000000000100*1; 
COMPLEX. M0U1(1)  -  UBO  OOMCAflXlH  *000000000001*1; 

DUNn.iu(i)  -  cwmMd).iu.xnui; 

DWMY.AUU)  -  CMVTDWCn.AEX.CGT; 

DIM4Y.ARRC3)  “  CNVTMMd).  ARE.  PLANT; 

DUMMY. AEIC4)  -  CNPTDEMd).  ARE -PAINS; 

duimy.aii(s)  -  cwTMMCDuRi.rAuw; 

0WMY.AU(6)  «  CNVTD*M(I) -ARR.MXE_A; 

DUMY.OEPd)  -  CWmMd).DEP.MOETH; 

DUHMY.DEPd)  •  CNYTDtM(I)  .DEP.EAST; 

DWMY.DEPO)  -  CNVTMMCD.DEP. SOOTH; 

DUMMY. DEP(4)  -  CNVTDM(I) .DEF.HEST; 

DUMn.DEPd)  •  CNVTDBId).DCP.MU_D; 

END  INITIALIZATION; 
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routine  qrix 

IN  (CNEGRQ(C0NF1ND(L))); 

INPUT  (qUELEM); 

[ This  routine  updates  departure  runway e  for  current  Operating  conf lfuratloa  to  current  departure 
queue  screen) 

LOOP;  [J  -  1  to  41 

qUELEN.DEPRUN(J)  -  C*GRq(COWlN»<l)).D«P_RWTCJ) ; 

ENDLOOP; 

END  qFIX; 


< 


I 

! 


j. 
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ROUTINE  CAPSAT 

IN  (PRCARR(l),  CNFGRQ,  CAP FILE,  PILENIW(I),  ELGBLTY ( I ) ) ; 

INPUT  (INFORM(I) ) ; 

IThla  routine  conputaa  capacity  and  performa  depend  balancing  for  each  eligible  configuration] 

StflTCH(l)  -  2; 

SHITCHC2)  -  1; 

IF  PRCARR(I) .TOTARR  ♦  PRCARR(I)  .TOTDE?  E£  °> 

THEN  ATOTPRC  -  .5; 

B5e  ATOTPRC  -  PRCARR(  I)  .TOTARR/ (PRCARRd ) .TOTARR  +  FECARR(I). TOTDEP); 

LOOP;  ]N  *  1  to  73)  ]up  to  73  eligible  configurational 
IF  SOKlt(EUaLTTU).ID,N,l>  fi  ’O'l 

THEN  [If  the  configuration  N  la  eligible] 

FLAC  -  0; 

PEEPOEM  CAFACITT_CUEn_SELBCTIOM; 

IF  FUG  a  0 

THEN  [danand  balancing] 

CAU  DEAL; 

IN  (CA?ACITT,f  AIR  .FRCARK  I). TOTABR,  PRCARRd). TOTDEP, 

PRCABE(I).C0NF(N).  NAEEDM,FBCABE(I) .COMF(N) .NDEPDEM) ; 

OUT 

TnCAEE(I).OtMP(N).MFtari>(«CARta).COiiF(N).ESFt<aR>FBCAEE(I).OONF(N). 

lNABESM(FUdBA(I).CIMF(N).EUBRDn,FECASE(I).OONF(N).ENIIEnEN.I«CAER 

(I).CONF(N).ESDBPOM); 

(tbla  routine  balancea  danand] 

IF  PRCASR(l)  .CONF(N)  .BNPRCMT  Cl  0. 
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THEM  [not  ssturstod] 

PRCHT  -  PRCARR(I).CONF(N).BNPRCNT;  (using  balancsd  psrcsntsgs 
of  arrivals) 

PERFORM  NORTH  COMPLEX  CAPACITY  CALCULATIONS ; 

PRCNT  -  PRCARR(I).CONF(H).»SPR5«Tj  [using  bslsucsd  psrcsntsgs 
of  srrlvsls) 


PERFORM  SOUTH  COMPLEX  CAPACITY  CALCULATIONS ; 

HDDSDT-  h*ormTi).confTm).narrcXp  +  imform(i).oomf(n).sarrcap; 

DEPCAP  •  IMFORM(I)  .COMF(N)  .NDEPCAP  *  IMFORM(I)  .CONF(M)  .SDEPCAP; 
RLS1  (ssturstsd) 

PRCNT  -  PRCARR(I).CONF(M).MPRCNT;  (using  unbslsncsd 

psrcsntsgs  of  srrlvsls] 

PMICEM  NORTH  COMPUX_CAPACITT  CALCULATIONS  ; 

PRCNT  •  PRCARR(I).CONF(N).SFRCNT;  [using  unbslsncsd 

psrcsntsgs  of  srrlvsls) 

PREFORM  SOUTH  COMPLEX  CAPACITY  CALCULATIONS; 

ARkCAP  -  INPOrHU) .COtff(N) .NDEPCAP  +  INFORM(I).CONF(N).SARRCAP; 
DSPCAP  -  IMPORM(l)  .CONF(M)  •MDRPCAP  +  INFORMC I)  .CONF(M). SDEPCAP; 


IF  PUG  Kfc  1 

THEN  (north  only  configuration) 

PREFORM  NORTH_ONLY_CAPAC1TY_COMPUTATIOM; 

ELSE 

PERFORM  SOUTHJNaTjCAPACITTjOONPUTATIOM; 


PERFORM 

fgfgg 


i mm 


CONSTRAIN  CAPACITY  OP  ENTIRE  AIRPORT; 
SATURATION  CONFUTATION; 

C HANOI  DU1_T0  DEMAND  BALANCING  CONFUTATION; 

pinal  IatuCatIon  enact 


ELSE  (for  losllglbls  conf lgurstlos) 

INFORMC  I  ).CONP(M)  .CAPACITY  •  -1.0; 
1MP0RM(1).C0NP(N) .INDEX  •  999; 


END  LOOP; 
END  CAPSAT; 


; 

I 
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PROCESS  CAPACITY_CURVI_SELECTION 

I  This  process- selects  proper  capacity  curve  for  north  and  aouth  coup lares) 
IMP0*M(I).C0W0O.IMDBC  -  M; 

L  -  P1LEMUM(1).C0NF(N); 

H(l)  -  CNPGB.Q ( N ) .NORTH ;  [obtain  north  and  aouth  coupler  Indicant 
M(2)  -  CNFGRQ(H). SOUTH; 

LOOP;  [R  «  1  to  2]  l retrieve  north  and  aouth  capacity  curves  frou  CAPPILE) 
IP  M(R>  HE  0 
THRU 

LOOP;  [J  -  1  to  1*1 

CAPACITY (R,J)  -  CAPfIL*(L).K*T(l»(R)).CAPCJ)i 
EMDLOOP; 

PAIRU)  -  CAPPIL«a).R*tOt(R) ).?**; 

BLS1  PLdC  -  SWITCH (FLAG) ; 

DIP  LOOP; 

CAP1  -  CAPACITTd,*); 

CAM  -  CAPACITY  (  2 ,  *  ) ; 

END  CAPACITY_CURVE  SELECTION; 


PROCESS  NORTH_COHP  LEX_CAPAC  ITY_CALCULATIORS 

(This  process  c capotes  capacity  of  north  conplaz] 

CALL  CAPCAL: 

in  (pair(i),  capi,  fiarr); 

OUT  (ACAT.  DCAP) ; 

(This  routine  coaputes  arrival  and  departure  capacltlaa  of  a  canplcz  haand  on  percentage  of 
arrlvala  and  a  particular  capacity  curve) 

INFORM(I)  .CONP(N)  .MAARCAP  -  ACAP; 

INFORM(I)  •OQdf(H)  .NDEPCAF  •  DCAP: 

EMD  N  ORTH_COMPLEX_CAPACITYJCALCULAT10NS ; 

PROCESS  SOUTH_CO«>LEX_CAPAClrT_CALaiLATIOIB 

(This  proceaa  coaputaa  capacity  of  south  couples 1 

CALL  CAPCAL; 

IN  (PAIR(2),  CAPC2),  PROCT); 

OUT  (ACAP,  DCAP): 

(This  routine  coaputes  arrival  and  departure  capacltlaa  of  a  coaplas  based  on  percentage  of 
arrlvala  and  a  particular  capacity  curve) 

INPORM(I).CONr(N).SAUCAP  -  ACAP: 

INFORM! I). CONPCN). SDEPCAP  -  DCAP: 


END  SOUTH  COMPLEX  CAPACITY  CALCULATIONS: 
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PROCESS  NORTH  ONLY  CAPACITY  CALCULATION 

Rhis  process  coaputes  capacity  for  north  only  configurations] 

CALL  CAPCAL; 


IN  ( PAIR(l)  ,  CAP(2),  ATOTPRC); 

OUT  (ACAP,  DCAP) ; 

IP  (PICAU(I).YOTAU  ♦  PRCARR(I).TOTDEP)  LE  (ACAP  +  DCAP) 

THEN  [not  saturated) 

PRCARR(I).CONF(N).DNPRCNT  -  AYOTPRC; 
PRCA1R(I).C0KF(N) .gSPRCNT  -  6.; 

FtCARR(I).CONF(N).MAUDM  -  FRCARR(I).TOTAtt; 

PtCAU(I).aMP(N).MMPDm  -  PRCAAR(I).TOTDIP; 

PRCAUa).COMP(N).HAUDU  •  0.; 

PRCAAR(I)  .COMF(N)  .1SDCPDNM  -  0.; 

UffOUKI).COMP(N).RARRCAP  -  ACAP; 
mPORM(l) .CONP(N) .NDCPCAP  -  DCAP; 

XNVtNUf(I)*COIIP(N)«SAUCAP  -  0.| 
uepaan(i).coNP(N).SDOCA»  -  o.j 

AB1CAP  •  ACAP; 

MPCAP  -  DCAP; 

«U»  ( saturated  ] 

PtCAU.(I).CONP(N).MfftCNT  -  -1.0; 

FRCARR(I) .CONP(N) .ASPRCNT  -  -1.0; 
PtCAU(I).COKP<N).MARRDM  -  -1.0; 
PICAtt(I).C0MF(N).INDEPD8M  -  -1.0; 


2-125 


END 


PRCARRC  I)  .CONF(  N  ) .  BSARRDEM 
PRCMLR(I).CONF(N).BSDRPDB< 

INFORMIX  ).CONF(K}.MARRCAP  - 
IMFORM(I).CONF(N).NDRFCAP  - 

INFGRM(l).CONF(M).SARRCAP  - 
INFORM(l)  .COMP(M)  .SDEPCAP  - 

ARKCAP  -  AjCAP; 

DKPCAP  -  OCAP; 

NORTH  ONLY  CAPACITY  CALCULATIONS; 


-  -1.0 
-  -1.0 

ACAP; 

DCAP; 

0.; 

O.J 
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PROCESS  SOUTHJ)NLY_CAPACITY_CALCULATION 

[ This  process  computes  capacity  for  south  only  configuration] 

QALL  CAP  CAL; 

IN  (PAIR(2),  CAP(2),  ATOTPRC); 

OUT  (ACAF,  DCAP); 

IP  (PRCAU(I).TOTARR  +  PRCARA(I).TDTDEP)  LE  (ACAP  +  DCAP) 

THEN  [not  saturated] 

PRCARR(I).C0HF(N).MPRC1IT  '  0.| 

PRCARA(l)  -CONF(H)  .BSP1CNT  *  ATOIPtC; 
P»CARR(I).CO«F(H).l*AIRDEM  -  0.) 

PRCASEC I)  .CONF( N) •  INDCPDEH  •  0.| 
PRCARt(I).CONP(N).BSA*aDEM  -  PRCAAA(l)  .TOTARA; 
PRCARR(I)*CONF(N).BSDEPDM4  -  PRCARR(I) .TOTDEP; 

INPORN(I).CONr(N).IUMCAP  »  O.i 
INPORN(I) .CONP(N) .NDEPCAP  a  O.i 
INPaUt(I).CONP(N).SARRCAP  -  ACAP; 

INPOWf(I) .CONP(N).SDEPCAP  -  DCAP; 

ARRCAP  -  ACAP; 

DEPCAP  -  DCAP; 

ELSE  [saturstod] 

PRCARR(  1)  .CONF(N)  .  1HFRCKT  »  -I.0| 

PRCARR(I).CONP(N).»SPtrarr  -  -l.O; 
PRCARR(I).C0«T(»).1NARRD«N  -  -1.0;  • 
ptCAU<i).00Nr(N).anwFD«  -  -l.O; 
PECAU(I).OONP(N).BSAUDIH  -  -1.0; 

PRCAAE(l) .CONP(N) -iSDRPDEH  -  -1.0; 
iNFQRM(I).CONP(M).NARRCAP  -  0.| 
INPO«M(I).CONP(N).NDEPCAP  -  0.; 

INPORHC I) .CONY(M) .SARRCAP  -  ARRCAP; 
UiraM(I).CONP(N).SDEPCAP  -  DEPCAP; 

ARRCAP  -  ACAP; 
i'LPCAP  -  DCAP  i 

rwn  <;nfpm  ow tv  raPArTTY  rirrwATTWS: 
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process  ooKSTRAm_CAPACirr_or_HfTi»i  ai&post 

Triils  process  coascrsln~CApeclty  Tor  ssctrs  slrport  1 

BTOTPtC  -  AUCAP/(AUCAP  +  DCF  CAP); 

ip  atotpbc  gt  name 

THEM  DEPCAP  -  (1.0  -  AT0TP1C)  •  AMCAP/ATOTPtC ; 

KLSEIP  ATOTPtC  LT  BTOTPtC 

THEM  AUCAP  «  ATOTPtC  s  DBPCAP/U.O  -  ATOTPtC); 

IHPOaM(I).COHFOI). CAPACITY  -  AUCAP  +  DEPCAP;  [totsl  slrport  cspscltp  (constrslnsd)  1 
END  CONSTRA INCAPACI  rT_OP_EXTIjU:_AItPOtT  ; 
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PROCESS  SATURATION_COMPUTATION 

[This  process  coaputes  saturstion  level) 

IP  PRCARR(I) .CONF(N) .BNPRCNT  GE  0. 

THEM  { not  saturated) 

(for  north  coaplex] 

DEM  -  PRCARR(I).COHF(N).BMARRDEM  +  PRCARR(I) .CONFOO. ■KDBPDBt; 

CEP  -  llfTORM(I)  .COKP(N)  .NARRCAP  +  IMFORM(I)  .COMFOO  .MDRPCAP; 

IP  CAP  Cl  0. 

THEM  IKPORM(I).COMP(N).MSAT  -  DIM/CAP; 

B3I  IMP0RM(I).C0NP(M).MSAI  -  1.0; 

(for  south  coaplex) 

DEM  -  PYCAAE(I) -COUP (M) .BSAJLRDCM  ♦  PICAU(I>.CONr<M).BSDEFDEM; 

CAP  -  IXPORM(I) .COHP(M) .SARA CAP  A  IMP0tM(I).C0IIP(H).SDIPCAP; 

IP  CAP  Ct  0. 

THEM  INPORM(I) .CON?(M).SSAT  -  DEM/CAP; 

ELSE  IMPOEMC 1) .COMP(M) .SEAT  -  1.0; 

INPQHM(I).C0MF(N).  SATURATION  •  (PRCAU(I).TOTAU  ♦  PRCAEACD.TOTDEP/lMPOUKl). 
COMP(N)  .CAPACITY; 

ELSE  (oaturatod) 

(for  north  coaplex) 


I 

! 


DM  -  PtCAEA(I) .COMP(M) .NAJUUMM  +  PtCARR(I).CONP(M).HDEPDEM; 
CAP  -  mraSM(I).C0Mr(M).EAEECAP  +  INNEM(X).O0IIF(N)»MDEPCAP; 
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IF 


CAP  CT  0. 

them  imposmU).cohf(i0.msat 

OSS  IMFORM(I).CatfF(H>.NSAT 


-  DDt/ CAP; 

-  -1.0s 


OEM  * 
CAP  - 


isillffllf  t  ptCAKftU) ■  COMF(M) 

S5JSIn:SS(S:SJSSf  X 


It  CAP  CT  0. 

THEM  IWOEMCD.COHFOO.SSAT  -  HW/CAPs 
|u5  I*r<*M(I).COMF(»).SSAT  -  -1.0S 

1NFQSM( I) .COMF(M) .SATWAT10M  -  (PSCAUtD.TCME  ♦  PtCASS(I).m««P)/IMPOMCl) 
COMF(M)  .CAPACITTs 

EDO  SATUEAIIOMJMMPUTATIOM  S 


} 

1 

I 


t 


on-; 


PROCESS  CHANGE_DUE_TO_DEMAND_»ALAlCINC_COMPUTAIIOH 

(This  process  coaputes  changes  la  deasad  ss  result  of  deasnd  balancing! 

IP  PRCARR(I).CONF(N).BNPRCNT  GE  0. 

THEN  ( not  saturated ] 

INFORN( X ) .COMF(H) .  CHANG  ENAJLR  -  PL00R( PRCARRd ) .CONP(N) .NARRDEM  ♦  .5) 

FLOOk(PRCAtttd)  .CONF(N)  .MAttDCH  ♦  .5) 

IHPORM(I)  .CONF(M)  .CHAMCENDS*  -  PLOOg(  PRCAgR(I)  .COHP(I)  .MDgPtn  ♦  .5) 

rL0C*(PRCAA»(I).00N7(N).Ba*PDra  ♦  .5); 

ELSE  [saturated) 

.  INFORMd).CONF(M>.CHANCENAU  -  0.) 

INFOUKI). CONP(N). CHANG IMDD  -  0.  i 


END  C  HANGE_DUE_TO_D*MAHD_IALA*C  IWCJMHPUTATION  ; 


PROCISS  FINALJSATWATIONjaUCK 

I This  process  checks  saturation  level  and  sat  appropriate  variables 1 
IP  INPORH(  I). CONF(N). CAPACITY  U  (PRCAUd) .TOTMJL  +  IRCAUUI )  -  TOTDKP) 
THEM 


PRCARR(I).C0HP(N).MPlOn  -  -1.0; 
PRCAULd).OONF(M).  IS  PROMT  -  -l.Oj 
PRCAU(I).CONP(N).MAgRDCM  -  -l.Oj 
r>cAud).ooiir(N).iiiDiraM  -  -l.Oj 
PtCAUd).CWP(N).HABlMM  •  -1.0; 
KCAUd).COHP(N).MDiraO(  -  -1.0; 

END  FIMAL_SATUNAT10N_CHECX; 


I 


in-; 


NJ 


ROUTINE  CAPCAL 

IN  (mm,  CAP  PILE,  PRCNT); 

—  [TUa’routlM  coaputa*  arrival  and  dapartura  capacity  o f  a  coaplax  baaad  on  parcaotaga  of  arrival* 
and  a  particular  capacity  curval 

ip  (earn  Eg  D  <*  <p»ckt  o.) 

THEN  [ooa  pair  of  point*  only,  or  oo  arrival*] 

ACAP  -  CAPPXLE(l) , 

DCAP  -  CA?FILE(2); 


ELS Elf  PRCNT  LI  1.0 

THEN  I  soa*  da part uraa) 


P* ncSi/d.o  -  proit)  ( 

RAT  102  -  CAPFILI(1)/CAPFI1I(2) i 
i«p«at  WHILE  (FLAC  J9.  0)  i  U 


2  to  PUSH) 


RATIO  1  •  RAT  102 1 

RATI02  -  CAFFILE  (2»I_l)/CAFFILE(2«I)i 
IF  (R  GE  RAT  101)  AJB  (R  L*  RATIO 2) 


- S  -  (CAPFILE(2U)  CAFFILE(2*I-2)/(CAPFILE(2*I-1)_CAFFILE(2*I-3)i 

DCAP  '  (CAPFILl(2TI-2)  S»CAPPILE(2U-3))/(l-sn) 

ACAP  *  <t*0CAP| 

FLAG  *  1; 


THM  (lot*  of  daparturaa] 

acaP  -  CimU  (IWW)| 
DCAF  -  UMtHi 

Ml  (all  arrlmlal 

aUP  “  CAFriU(!MM*2-l.)l 

scar  -  o.i 
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ROUTINE  ORAL 

III  (  CAPACITY,  PAIR  ,PRCARR(  I )  .TOTARR,PRCAAR(I).TaTD£P,PRCARR(I).CONF(N) .NARRDBMaPRCARR(I)  .CONP(N) .NDEPDEM) 

OUT  (PRCARR(I).CONF(N).BNPRCXT,PRCARR(».CONP(N).BSPRCHT,PRCARR<I).CQMF(N).1HARRDHH,PRCARRU).COHF(H). 
BSARRDEM , PRCARR( I ) .CONF (N ) . BNDRPDEM , PRCARR( I ) .CONP(N ) . A3DEPDEN) ; 

[This  routlna  performs  dsmsad  balancing] 


PNUM  -  PAIR; 

A  -  PRCARR(I).TOTARR; 

D  -  PRCARR(I) 'TOTDKF; 

NARRDEM  -  PRCARR(I).CONP(M).NARSDEM; 

NDEPDEH  -  PRCARR(I)  ,COMF(N)  .NDEPDEM ; 

BNPRCNT  -  PRCARR(I).C0NF(H).BNPRC1IT; 

BSPRCMT  -  PRCARR(I)  ,CONF(H)  .BSPRCHT; 

BNARRDEH  -  FRCARR(I),CONF(N)«DUERDEH; 

1NDEPOEM  -  PRCAAR(I).CONF(N).BNDEPDEM; 

BSARRDEM  -  PRCAAR(I).CONF(N). BSARRDEM; 

BSDEPDEM  -  PRCARR(I)  .COMF(N)  •BSDEFBKM; 

SWITCH ( 1)  -  2; 

SWITOK2)  -  It 
SAT  -  1,0; 

INDEX  -  0; 

CURVE  -  0; 

IF  (A  HQ  0.)  AMD  (D  1  0.) 

THEM  (If  both  arrival  and  departure  daoanda  ara  taro) 

BNPRCNT  •  .3; 

BSFRCXT  -  .3; 

MARRMM  -  0; 

BMDRPem  -  0; 

BSARRDEM  -  0; 

BSDEPDEM  -  0; 

ELSE 


LOOP:  [K  -  1  to  2] 

IF  PNUMOC)  GT  1 


•7CI- 


THEM 

LOOP;  IJ  -  1  to  2*PHUH(D) 
Cl(4)  -  CAPACXTY(K.J); 


HMD  LOOP; 


IP  CU2*PNUH(D)  MB  0. 

ram 

PI  -  PM0H(K)+1| 
C1(2*P1-D  -  Cl»*Pl-3>[ 
C1(2*P1)  -  Os 

ELSE  pi  -  PMUH(E) ; 


ELSE 


n  -  1$ 

CUD  *  CAPACITY(K.l); 
Cl(2)  *  CAPACITY(E.2); 

IP  Cl(l)  CT  0.)  Ot  (Cl(2)  a  °> 

THPCP  Ptn»(SWITCH(E)  CT  1) 


LOOP:  (J  -  1  to  2*PNUKSWIiai(E)» 
C2(j)  -  CAPACITY  (MITCM(D.J); 


IP  C2(2*PMM(SMITCa(K)))  «  0. 
THEM 

P2  •  PMUM(8UITCH(D)  +  It 
C2(2*P2-1)  -  C2(2*P2-3); 
C3(2*P2)  •  0.; 

ELSE  P2  -  PNlM(StfITCH(D); 


IF  CAPACITY(SVITCH(E),1)  ST  0. 

THEM 

C2(l)  -  0.; 

C2(2)  *  O.i 

C2(3)  -  CAPACITY(SU1TCH(E)  ,1)  ; 
C2(4)  •  CAPACITT(SWITCHCK)  .2) ; 


ELSE 


C2(l)  -  CAPACITT(SWITCH(E).l); 
C2(2)  •  CAPACITT(SWITCH(K)  ,2)  ; 
C2(3)  -  0.; 

C2(4)  -  0. ; 


IF  (C2(2)  ST  0.)  Ot  (C2(3)  ST  0) 


H  t£I 


DEPDU  -  KDEPDEMi 


ELSE 

ABEDBt  -  A  -  KAKEOEM; 

DEPOn  -  D  -  HDEPDBII 

CALL  MO; 

IN  (Cl,  C2,  PI,  P2,  A,  D,  AEEOn,  KDEPDCM); 

POT  (UOH1N,  DDES); 

(till*  rout  la*  p«foni  i1*—inl 


b*I*ocla*  iliorltt*] 
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I 


THEN 

CORKER  “  INDEX; 
CURVE  -  K; 

SET  -  UKM1H; 


EMU  LOOP; 

[check  Integer  eircreftl 
IF  CURVE  “  0 
THEM 

MFROfT  -  -1.0; 
tSFECNT  “  -1.0; 

RNARRDEM  *  -1.0; 

RSARRSEM  *  -1.0; 

IKDKPURN  -  -1.0; 

RSDKFDBI  -  -1.0; 

mm  (count  cr  mum  (out ve))  ud  («um(curve>  ct  1) 

- Hit  -  SAT  •  CAPACITY  (CURVE.  2*UUM(OTVt)-l) ; 

TDK?  -  0.; 

ELSEIF  (CORNER  CT  PMUM  (CURVE))  AND  (MAIK(0*VI)  KJ  1) 


- XARR  -  SO  •  CAPACITY  (CURVE. 1); 

YMP  -  SAX  •  CAPACITY  (CURVE, 2); 


- XARR  -  SAT  •  CAPACITY  (CURVE,  2  •  CORNER  -  1); 

YDRP  “  SAT  *  CAPACITY  (CURVE,  2  •  C0RN1R); 

CAPFILR1  *  CAPACITY(CURVB,*); 

CAPPILI2  -  CAPACITY(SWTCH( CURVE)  ,•) ! 

X  -  FLQAT(PL0OR(XARR  ♦  .$)>; 

Y  -  FLOAT(FU)0R(TDEP  ♦  .5))} 

IF  (X  ♦  Y)  GT  0. 
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mm 

PCTl  -  X/(X  +  Y); 

CALL  CAPCAL) 

IN  (PHUM(CURVE)  .CAPPILEl,  PCTl)  -, 

OUT  (AC API,  DCAP  )i 

51  -  (X  ♦  Y)/ (ACAP1  +  DCAF1)  i 
ELSE  SI  -  0.; 

IP  (A  -  X  CT  0.)  AMD  (D  -  T  G»  0.) 

THEM 

PCT2  -  (A  —  X)/A  ♦  D  -  X  -  Y) ) 

CALL  CAPCAL) 

IN  (mCH(SWTCH(CW»E)),CAPPILE2,  PCTl); 

OUT  (ACAP2,  DCAP 2) ) 

52  -  (A  ♦  D  -  X  -  Y)/(ACAP2  +  DCAP2) ; 

ELSEIP  (A  -  X)  CT  0. 

THEM 

PCT2  -  1.0 1 
CALL  CAPCAL) 

IN  (PMUM(SUITCH(Cnin».CAPPIU2,  PCT2); 
OUT  (ACAP2,  DCAP2); 

SI  -  (D  -  Y)/ (ACAP2  ♦  DCAP2); 

!  IP  (SI  LX  1.0)  Am  (S2  LI  1.0) 


1 


THEHIF  CURVE  1 
THEM 

BMPICKT  -  PCT1, 

BSPRCNT  -  PCT2, 

■iUUOEM  -  X; 

IUBDH  »  k  -  X; 
lMWPDBM  -  T; 

IS DC PD EM  '  D  -  T; 

else 

- BSPBOR  "  PCTI; 

■men  ■  pern 

isuim  -  x; 

mmn  *  a  -  x; 

1SDEPDXH  ■  T; 

■idkpdbi  •  D  -  x  i 

else 

mn»M  I 

IT  (si  U  1.0)  U ■>  (SX  I*  1,0> 
m  mwut  kssiammxti 
BS*  PMLWMt  UPmjL*PTUM*nP. 

IT  (SI  LB  1.0)  **>  CS2  LB  1*0) 
nmi  PnTOH  BSSICMWn; 
nM  »— *»*  0Pf.Bi0n_u.0BUP, 

(SI  LB  1.0)  W  LB  1.0) 

pqiom  *ssic««n. 


ir 


•nnm  hum  WM— It; 
«LS« 

■non  *  -i.o  s 

•snan  -  -i.0; 
-mm  -  -1.0; 

(MDIFD04  -  -1.0; 
wiiiiM  •  -1.0; 
UDDDM  -  -1.0; 


I 
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PROCESS  assignment 
IP  CURVE  E£  1 
THEM 

ENPRCNT  -  PCTlj 
BSPRCMT  -  PCT2; 
BMARRDOt  *  X', 
■SURDBI  -  A  -  I; 
BNDsrom  -  T; 
BSDEFDEM  -  D  -  Tj 

ELSE 

BSPRCMT  -  PCTlj 
BMPRCMT  -  PCTlj 
BSARRHM  -  X; 
BNARRDEH  -  A  -  X; 
BSDEPOBt  -  1} 
RNDEPDm  -  D  -  T; 


end  assigmkir; 
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PROCESS  LO  WEE_LE  FT_LOOKUP 

X  -  FLOAT(FLOOR(XAJUt)); 

Y  -  FLO  AT  (  FLOOR  (YDEP))t 

IF  (X  +  Y)  GT  0. 

THEM 

PCT1  -  X/(X  ♦  T)j 
CALL  CAFCAL) 

iH  <PNUM(CU1VE),CAPFILE1,PCT1); 

OUT  (ACAP1,  DCAP1); 

51  -  (X  +  T)/(ACAP1  +  DCAP1); 

BLSg  SI  •  0.: 

IF  A  -  X  CT  0. 

THEM 

PCT2  -  (A  -  X)/(A  ♦  D  -  X  -  I)5 
CALL  CAFCAL; 

«  (PWH(SHITCa(CUEVE)),CAFFILE2,FCT2); 

OUT  (ACAP2,  DCAF2); 

52  -  (A  *  0  -  X  -  T)/ (ACAP2  ♦  OCAP2); 

END  LOWER_LEFT_LOOTUP ; 


I 


2*i-; 


M 


PROCESS  UPPER_L£FT_LOOKUP 
X  *  FLOAT(CEIL(XARR)  ); 

IP  (X  ♦  T)  GT  0. 

THEM 

PCT1  -  X/(X  +  T); 

CALL  CAPCAL; 

Jfi  (PNIM(CWVE),CAPFIL11,  PCn)[ 
OUT  (ACAPl,  DCAP1) ; 

SI  -  (X  ♦  T)/  (ACAPl  +  DCAP1); 

ELSE  SI  -  0.; 

IP  (A  -  X  CT  0.) 

THEM 

PCT2  -  (A  -  X)/(A  +  D  -  X  -  T), 

ELSE  PCT2  -  0.} 

CALL  CAPCAL  i 

IH  (PI«M(SWITCH(CWyi)),  CAFFILE2,  PCT2); 
OUT  (ACAP2,  DCAP2); 

S2  -  (A  +  D  -  X  -  T)/ (ACAP2  ♦  DCAF2); 

EMP  UPPa_LEFT_LOOEUPi 


PROCESS  UPPEE_RIGHT_LOOKUP 
Y  -  FLQAT(CEILCYDEP) ) ; 

IT  (X  ♦  Y)  CT  0. 

THEM 

PCT1  -  X/(X  +  T)j 
CALL  CAPCAL; 

IN  (PMUH(CUHVE),CAPriUa,  ICTX) | 

OUT  (ACAP1,  DCAP1)  ) 

51  ■  (X  ♦  Y)/(ACAP1  ♦  DCAP1); 

ELSE  SI  -  0; 

IP  (A  -  X  CT  0.)  AMD  (B  -  T  CE  0.) 

THEM 

PCT2  -  (AjO/U  ♦  D_XJt)» 

CALL  CAPCAL) 

IN  (FMUM(SUIlCH(CUKVE)),CAmU2,PCn)) 
OUT  (ACAP2.DCAP2) s 

52  -  (A  ♦  D_XJf)/(ACAP2  ♦  DCAP2); 


Ig  <rni(MITCH«WVI)),CAmLK2,  PCT2) j 
OCT  (ACAF2,  DCAF2); 

82  -  {*  -  X)/ (ACAP2  ♦  DCAP2); 

«L3» 

KX2  -  0.} 

C ALL  CAKAL; 

i«  (nM<(sniai(cwvi)),GAmu2>  rci2)t 

OUT  (ACAT2,  OCAF2): 

82  •  (D  -  T)/(ACAT2  ♦  DCAF2); 
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PROCESS  LOVER_E  IGHT_LOOXUP ; 

X  -  FLOAT(FLOOR(XARft)); 

IP  (X  +  Y)  Cl  0. 

THEM 

PCT1  -  X/(X  +  Y); 

CALL  CAPCALi 

IM  (PMUM(CUEVE)  .CAPPILIl,  PCT1) 
OUT  (ACAP1,  DCAP1); 

SI  -  (X  ♦  T)/(ACAP1  ♦  DCAP1) 5 
RISE  SI  *  0; 

IP  (D  -  Y  GE  0.) 

THEM 

PCT2  -  (A  -  X)/(A  ♦  D  -  X  -  t)i 
ELSE  PCT2  -  1.0; 

CALL  CAPCAL; 

IM  {  PMJM(SUITCH(C(RLVE)  )  ,CAPFILE2 ,  PCT2  ) ; 

OUT  (ACAP2.DCAP2); 

S2  -  (A  +  D  -  X  -  Y)/ ( ACAP2  ♦  DCAF2); 

END  LOWX*_XIGKT_UXHO» ; 


I 

I 


to 

I 


£- 

O' 


ROUTINE  RHO 

IN  (Cl,  C2,  PI,  P2,  A,  A,  ARJLDEM,  DEPDEM) 

OUT  (RHO MIN,  INDEX); 

(This  routine  performs  demand  balancing  algorithm] 

RHO  MIN  -  1.0; 

DELTA  -  999999. ; 
plac  -  O.i 


INDEX  -  0; 


LOOPi  I J  “  PI  to  1  by  -1) 

ip  -rue  o 
THEM  K  -  1| 
ELSE  PUB  -  0; 
IP  C2(2*K-1)  CT  0. 


THEM  RATI02  -  C2(2*X)/C2(2*E-l)j 
ELSEIP  C2(2*E)  CT  0. 

THEM  RAT  102  -  99999; 

ELSE  RAT  102  -  0.; 

REPEAT  UNTIL  <K  Eg  P2)  OR  (PUB  Eg  l); 

NUN  •  C2(2*K+2)  -  (C2(2*K); 

DEM  -  C2(2*Kfl)  -  C2(2*E-1); 

IP  DEM  8T  0. 

THEM 

H  •  MUM/ DEM; 


>  -  C2(2*K)  -  M*C2(2*E-1); 

•T  •  C1(2*J)  -  M*Cl(2*J-l>+»; 


LV 1-; 


IF  T  CT  0. 

THEM  R  -  (D  -  M*A)/T; 

«L81IF  DGTO.; 

THPI  a  •  1.0; 

ILS1  a  -  A/C2(2*E+1)  ♦  C1(2»J-1» 

»r«« 

T  -  C2(2*E+1)  ♦  C1(2*J-1>; 

IF  T  CT  0. 

THEM  a  •  A/T; 

ELSEIF  AGIO. 

THEM  a  -  1.0; 

tss  ELSE  E  -  D/CC1(2*J)  ♦  C2(2*E» ; 

BATI01  *  EATI02 ; 

IF  C2(2*E+1)  CT  0. 

THEM  BATI02  -  C2(2*K+2)/C2( 2*1+1); 

ELSE  EATIO  2  -  999999. 

X  -  A  -  E*C1<2*J-1); 

T  -  D  -  E*C1(2»J); 

IF  A1S(T)  LT  .001 

THEM  T  -  0.; 

IF  AES(X)  GE  .0001; 

THEM  EATIO  -  T/X; 
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] 


i 


BISK 

RATIO  “  999999; 

X  “  0; 

IT  RATIOl  GT  RAX102 

pmiTl  (RATIO  IX  EAT 101)  AMD  (RATIO  GE  RAXI02) 

vux  rue  -  u 

g wu  (R«C2(2*R— 1)  LI  X)  AMD  (XU  R«C2(2*R+1)  A»  (R*C2(2«E)  Cl  T)  AMD 
- (T  a  R*C2<2*B2)) 

thbi  rue  -  is 
ir  rue  hi 

THEMir  (ICTO)  A»(RU  1.0)  A »  (»  «  «*»«»  ♦ 

TUB! 

- MM  -  R*(C1(2*J)  ♦  C1(2*J-1»S 

IT  AB8(R  -  M0M1M)  U  .01 

TMur  (Audiun  +  doom  -  bm)  lt  drlta) 


- DELIA  -  AISURUM  ♦  DRFMM  -  MM)  S 

U0NDI  -  RS 
UK*  Jl 

RL5I 

HIM  m  AMMUm  +  DBMBM  -  MM)i 

■mu  -  Rs 

non  -  J» 

■LSI  R  •  K  ♦  IS 


RMPLOOTi 


END  RHOj 
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(LOCAL  VARIABLES | 

ST ROC  TUBE  MESSACEMAJCE1  (data  atructura  where  currant  lot  aaaaafaa  that  appear  oo  O'Bara  atatua  auunary 
acraan  are  atorad) 

GROUP  TABLE(IOS)  (uo  to  108  aaaeagaa  can  ba  conatructad] 

IWT  TIKE  (locator  signifying  Clan  aaaoclated  with  aach  lot  waaaata] 

CUE  MSG  (character  atrlat  of  length  80  for  aach  waaaata) 

EMDSTRUCTURE; 

IBT  COUNT  (an  locator  algaifylag  naabar  of  aval la hie  aeaaataa  lnltlallaad  to  aaro] 

IWT  INKEEP  (an  lntagar  array  of  alan  108;  la  uaad  an  a  flag.  If  nth  elawaac  of  chla  array  la  equal 
to  1  It  lapllaa  that  nth  log  waanaga  la  nawly  added,  ate.) 

STRUCTURE  OB  LOAOLIST  [a  atructura  of  polatara,  ona  for  aach  data  flald  on  acraan  uaad  by  panel  nanager 
for  loading  and  unloading  data  to  and  f row  acraan) 

CROUP  HE 

PTB  CEIL  (pointer  for  calling  data  field) 

PTB  VIS  (pointer  for  vlelhlllty  data  flald) 

GROUP  WIND 

PT1  Dig  (pointer  for  wind  direction  data  flald | 

PTE  VEL  (pointer  for  wind  velocity  data  field) 

PTR  ARRRUM(l)  (polatara  for  current  configuration' n  arrival  runway*  data  field*) 

PTt  DEF8UN(A)  (pointer*  far  currant  configuration'*  departure  rwwuuya  data  fleldal 


isi-; 


PTR  CAP  (pointer  for  current  configuration's  capacity  data  field] 

PTR  CAPCF  (pointer  for  percentage  of  highest  capacity  data  field) 

PTK  SCROLL  (pointer  for  scroll  data  field] 

PTR  LOC_KSG(13)  (pointers  for  log  nessage  data  fields) 

PTR  MSG  (pointer  for  screen  nessage  data  field] 

BITS.  PENCK  (32  bit  variable  as  prescribed  by  DNS  nanus  1  initialised  to  string  of  (32)  'l'B] 
EMDSTRUCTPRK; 


ISJ 
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ROUTINE  HSTAT 

IN  (OHSTAT,  APTSTAT(l),  IWORM(l),  CMTQIQ  (CONFIND(l)),  CONFIND(l),  BQPLOC,  CMVT1QF,  WILOC,  CNVTW. 
SURFLOC,  CNVTSRF); 

INPUT  (OUNIS,  ESTATDS); 

(This  routine  prepares  Information  used  on  O' Bars  status  aianary  screen,  and  stores  that 
Information  in  structure  OHSTAT) 


I  FOUR  -  4; 

4  THREE  -  3; 

OHSTAT. W. CEIL  -  APTSTAT(1).HX.CIIL;  (sat  prevailing  csIIIur) 

OHSTAT. US. VIS  -  APTSTAX(l).HX.VISs  [set  prevailing  vlelbllltyl 
OHSTAT. HIND. DIR  -  AFTSTAT(i)  .HIND. DIR;  (sat  wind  direction) 

OHSTAT. HIND. VEL  -  AFTSTAT(l). HIND. VII.  (sat  wind  Velocity] 

POOP:  [J  -  1  to  3| 

OHSTAT. ARR(J)  -  CNFGRQ  (CONFIND(l)).ARR_*VY(J);  [sat  currant  operating  configuration's  arrival 

runways) 

ENPLOOf; 

LOOP:  (J  -  1  to  4| 

OHSTAT. DHF(J)  -  CNFGRQ  ( COHFINDv'  1 ) ) .  0«P_«HT<  J ) ;  (sat  currant  opera  tin*  configuration's  departure 


ENPLOOF; 

IV  INFOM<l).CONr(CONriND<l)).CAPACITT  Jg[  -1 

THEN  [if  currant  operating  conflguratln  Is  lnallglbls,  blank  out  capacity  data  field  oa  screen  and 
produce  appropriate  aaaaaga) 

OHSTAT. CAFACin  -  (5)  ' 

OHSTAT. PCT  HC  -  (3)  *  '} 

OHSTAT . K8C--  SUBSTR(OHSTAT.HSC,  1,  24)  CONCATENATE  1  ***CTJ*R1NT  CONFIGURATION  IS  INELICIRU***’ 
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ELSE 

OHSTAT. CAPACITY  -  F(INFOEM(l) .COHF(COHFIND(1) ) .CAPACITY.lPOUk);  (set  current  operating 
configuration1 a  capacity;  It  la  obtained  after  converalon  of  numerical  data  to  character  data) 

.  PBEFOEH  PK*CE*TAGE_OP_HIGaEST_CAPAClrY_CALCULATION; 

OHSTAT.  PCT_JIC  “  SUBSTt(F(TABlkTURES) ,1 ,3) ;  [numerical  value  la  converted  to  character  data  and 
atored  In  appropriate  variable) 

OHSTAT. SCROLL  -  (A)  1  •;  [scroll  data  field  on  acraen  is  blanked  out] 

LOOP;  [J  -  1  to  13) 

OHSTAT. LOC_MSG(J)  “  80  '  [log  nessages  data  fields  on  screen  la  blanked  out) 

EHPLOOP; 

LOOP;  (J  -  1  to  108)  (Initialise  M88A£SJfAKn) 

MESSACE  JtUUM. TAILS (J).KSC  -  (80)'  •; 

HESSAGE_HAKEE. TABLE(  J )  .TUC  -  0; 

EHPLOOP; 

PEkPOSM  Eqo I PKKHT  LOC  * SSACE  C EHKtATIO* ;  (generate  log  Manages  free  equipment  planning  lag  semen) 

l*ATHK*_A*D_lfI*D_LOC_l«SSAG*_CE»HATIO* ;  (generate  log  nessages  f  roe  wee  the  r  and  vlad  planning 

leg  screen) 

WMW<  HkPOBT  PLAmiBC  LOC  WSSAGI  CEHglATIOg ;  (generate  log  nessages  fron  airport  planning  log 

screen) 

PEBF08H  LOC_«S8AC8_SOgT  (sort  nessagss  on  tine  key) 

y*?!?11  FU*_l»JW8iaS;  (f lag  saw  Maneges  gsnerstsd  In  order  to  highlight  than  for  user's 
attention  on  O'Hara  status  suamry  semen) 

PEBPOkM  0L0_ICSSAGE_TABLE_CEMUATI0«;  (generate  a  copy  of  existing  Mssegea  In  order  to  Caspars  than 
later  with  table  of  nav  Mssages  and  flag  nev  entries! 


*751- 


1 


SSI- 


PROCESS  PERCENTAGEOPH  I GHES T_C AP AC  I  Tf  CALCULATION 

[This  process  coaputaa  perceatsge  oT  cspsclty  of  current  operating  configuration  to  hlghaat  available 
capacity) 

TAB  •  0.; 

LOOP;  (J  •  1  to  73;  for  73  poaslbla  configurational 

IP  INF0RM<1). CO0(J). INDEX  NE  999 

[if  Jth  configuration  Is  eligible) 

THEN  IP  INPOM(l) .CONT(J). CAPACITY  GT  TA» 

THEN  TAB  -  I NPOtM(l)  .CONP(J)  .CAPACITY; 

(coaputn  percentage  of  highest  capacity) 

EMDLOOP;  (TAB  contalna  highest  capacity  available] 

tab  -  iNPOM(i).(XNir<coMruD(i)).CAMCiTr*ioo.mi; 

END  PERCENTAGE  OF  HIGHEST  CAFACITT_CALCULATION; 
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PROCESS  EQUIPMENT J^M_MESSAGE_GENE(ATION 

[This  process  generates  appropriate  log  messages  for  O'Hara  status  status  aumsary  screen  from  equipment 
planning  log  Information) 

LOOP;  (J  *  1  to  IS;  up  to  IS  equipment  planning  log  messages ) 

IP  EQPLOG.TABLE( J) .RWY  HE  (3)  *  *  [check  for  an  enlstlng  message 1 

THEM  [If  a  message  la  found,  begin  constructing  part  of  massage  containing  runway  identifier 
and  equlpmant] 

AUX1  -  (J)  •  •  COMCATEMATE  EQPLOC.TABLE(J) .BUT  CONCATENATE  (S)  ' 

ip  k)floc.taale(J). equipment  n  (ii j  • 

THKH  Ainu  •  Aral  COMCATEMATE  IQ  PLOC.TABLg(J).  EQUIPMENT; 

IP  EQPLOC.TASLE(J),BEMA*ES  111  (3»)  •  • 

THEM  AUX2  -  EQPLOG.TARLE(J)  .EEMAXE3 
IP  EQPLOC.TAILE(J) -OTS  ME  (A)  '  ' 

THEM 

COUNT  •  COUHI  +  1;  [Increment  massage  counter) 

MESSAGE_MAXU.TAILZ(COUVT) .TIKE  •  CNVTEQP.TASLI(J).OTS; 

(construct  massage  with  OTS  time) 

MESSAGE  MAKE!. TABLE  (COUNT) .MSG  -  (J)  •  •  CONCATENATE  EQPLOC.TAELE(J)  .OTS  OOUCATKHATS 

AUE1  COlCATEMATE  '  OTS  ’  CONCATENATE  AUX2; 

IP  EQPLOG .  TAELS  (J).  RTS  «(*)'' 

THEM 

COUNT  ■  COURT  +  1;  [increment  message  counter) 
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MESSACB_MAlCtt.TAiLE(COUtlT) .TIME  -  CKVTEQP.mui(J).»TS; 

[construct  neasags  with  KTS  tins] 

M2; '  2S*™*™  «« 

UIPLOOP; 

EHD  KQC I PHE  lfr_LOC_*  SSAdGEIIOATIOM ; 
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TkOCESS  WBATBEkJUIDJJIND_LOG_MESSACE_CEMEkATION 

(thle  proceee  imnlii  appropriate  log  maeaagea  for  O'Hara  atatua  aumnarjr  acraoo  f roe  weather  and  wind 
planning  log  Information] 

LOOP;  [J  •  1  to  11;  up  to  13  weather  and  wind  planning  log  maeaagee] 

If  IfXLOC.TASLE(J)  .TIME  gg  (4)  *  '  (chock  for  an  eclating  Manage ] 

THPlir  (IBUK.TAIU(J).CBIL  ME  (5)'  •)  Ok  (HXLOC.TABLE(J) .VIS  «  (5)'  •) 

THEM 

4UI  -  ' 

OOOHT  •  COUNT  *  1;  (Increment  Menage  counter] 

MSSACS_NAEEk.TAkLE( COURT). TIM  -  CNVTVX.TABLE(J)  .TIME; 

SUE  •  (1)'  •  CONCATENATE  HXLOC.TASLX(J)  .TIME  COMCATEMATE  (3)  ’  • 

IT  ((liXLOC.TAELk(J).CEIL  «<S)'  ’)  AMD  (HELOC.TAELE(J).VIS  K(3)'  •» 


AflX-Aia  COMCATEMATE  'HE  •  COMCATEMATE  WXLOC.  TAILS]  J>. CEIL  COMCATEMATE 
(3)'  '  COMCATEMATE;  «LOC  .TABLE]  J)  .TlS  COMCATEMATE  (3) 

ELSEIf  HXLOG. TABLE]  J)  .CEIL  JB(3V  ' 

THEM  AOE-ADE  COMCATEMATE  'CEIL  '  COMCATEMATE  WEL0C.TAELE(J)CE1L 
COMCATEMATE  (13)  ’  '; 

ELSE  AUE-AUE  COMCATEMATE  'TIE  '  COMCATEMATE  WELOO.TAELECJ). SIS  CONCATENATE  (13)* 

IT  HXUJC .TABLB(J)kHMABES  ME  (33)*  * 

TEEM  AUX-AUX  COMCATEMATE  HXLOG.  T ABLE  (J).  SENATES; 

ICES  SA£E_MAKEk.  TABLE]  COUNT). NSC  -AUX 

[metaege  la  conatructed  with  voathnr  Information  and  atored] 

IT  (HXLOC.TASLE(J).DIk  K(5)'  ' )  Ok  (VXLOC.TABLE(J).VEL(S)  '  ’ 
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THEM 

AUX  -  '  ' 

COUNT  -  COUNT  +  lj  [IncrMant  counter} 

*ttSACHJIA*HB.TA»LE(COUNT).nME  -  CHTWX. TAME (J). TIM*; 

AUX  •  (3)'  '  CONCATENATE  HILOC . TABLE( J ) .TIME  CONCATENATE  (3)  ' 

IT  ((HXLOC.TAIU(J). DIE  !■($)'  ')  AWKWELOC.TAELi(J)  .VEL  «(3)'  ')> 

THEN 

AUX -AUX  CONCATENATE  'Vim  •  CONCATENATE  HXUK.TA1LB(J).DI« 

CONCATENATE  UXLOC.TAELE(J)  .VEL  gQlfeAWtfATE  (7)’  •; 

ELEEiy  WXLOC.TAELS(J).DIE  NE(5)'  ' 

THEN 

AUX -AUX  CONCATENATE  ‘DIE  '  CONCATENATE  iaUMS.TA»U(J).DIB 

CONCATENATE' ('If?*-1;  " 

ELSE 

AUX -AUX  CONCATENATE  'VEL  '  CONCATENATE  HXLOC.TANLE(J).VEL 
CONCATENATE  (12)' 

IT  WXLOC.TABLE(J).EEMAIKSME(35) '  ' 

THEN 

AUX -AUX  CONCATENATE  HXUX2.TANLE(J)  .EEMAEES; 

HESSAGE_MAEBB  .TABLE  (  COUNT  )  .MSC-ADX; 

(mim|i  t(  constructed  with  wind  laforwetloa  end  stored] 

EHDLOOf ; 

END  HBATHEBJUR>_HIED_LOG_WSSACS_CEMBATION; 
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PROCESS  AI EPOETPLAKIII  NC_LOC_KESSACK_CENE»AT  ION 

[Till*  process  leurttti  appropriate  log  nsaaagea  for  O'Bare  statue  euMerp  screen  f ran  airport  planning 
log  Information) 

LOOP;  (J  -  1  to  13;  up  to  13  airport  planning  log  naaaages) 

IT  SUEFLOC.TABLE(J).TIIS  BE  (A)*  * 

na  i>  saarLoc.ttBLXJ).suir  «  (s>*  • 


THgg 

AUX-'  1 

COUNT  •  coon  +  1;  (Increment  message  counter) 

M»SA(3JttEBt.tA>U(C0aK)  .TI1B-CNVTSNP  .TA1LE(  J)  .THE; 

ADX-(3)'  <  CONCATENATE  IUEPLOC.TA»LA(J)  .TIME  CONCATENATE! 3 )  •  •  CONCATENATE 

aomoe.nuM(j).u/r  (Soncatenati  <»•  ■  cobcaMTOe  aotfLoc.TAMJKJi.siw 
CONCATENATE  (12)'  ' 

IF  S0BFU>G.TABU(J).XE1IAIU  *(27)'  1 

TEEN  API -AUX  CONCATENATE  EUKrLOC.TAgLE(J)  .EEHAEES; 

MUSAGNJIAKn.TAaU(Cai)n)  .KSOAUX; 

(e  neseege  Is  constructed  with  surface  conditions  Information) 

IP  8UEFL0C.T ABLE  (J).  BEAK  NE  (3)1  • 


AUX  -  * *5 


cooorcoon  ♦  1;  ( Increment  message  counter) 

HESSACEJtAm.TAELI( COUNT). TIMg>  CNVTSBP.TABLE(J)  .TUB; 

AOX-(l)'  'CONCATENATE  EUEPLOC . TA1L«( J ) ■  TUB  CONCATENATE  (3)'  'CONCATENATE 

SOEFLOC.  TABLE  (J).  EOT  CONCATENATE!  3) '  ’  CONCATENATE  EUEFU)CTtAILE(J) -11AE 
CONCATENATE  (12)'  '; 

IP  StJWJU.fna(J).EEMAEU  NE( 27)  '  • 


I9I-; 


THEN  AUX-AUX  CONCATENATE  SUEFLOC .  TABLE!  J  )  ■  SEMASKS ; 

MESSAGE JiAKEB.  TABLE  (COUNT)  .MSG- AIK; 

(a  ihh|>  ia  construe  tad  with  braking  condition  Information] 

IF  SUBFLOG. TABLE !J). CLOSED  ME  (6)'  * 


THEN 

ADX  •  '1; 


COUNT  -  COUNT  +  1;  ] increment  Manage  counter] 

MESSAGE  MAXES.  TABLE  (COUNT)  .TIME  -  CNVTSBF.  T  ABLE  (J).  TIME; 

AUX-f 3)T  '  CONCATENATE  IUBFLOC.TABLE(J).TINE  CONCATENATE  (1)'  '  CONCATENATE 
SUEFLOC.  TABLE  (J)  .~SVT  CONCATENATE  (5)'  'CONCATENATE  SUEFLOC .  TABLE(J)  .CLOSES 


CONCATENATE 


CLOSED  'I 


IF  SUEFLOC. TABLE(J).BEMABES  NE(27)'  ' 

THEN  AHX-ABX  CONCATENATED  SUEFLOC. TABLE (J).EEMABES; 


hJ 


MESSAGE  MAXES.  TABLE!  COUNT). MSC-AUX; 

[meaaaga  la  conatructad  with  runway  cloaura  information] 

IF  SUEFLOC. TABlHJ)-OPBN  HE  (6)'  • 


COUNT-COUNT  ♦  I;  (locramant  moasaga  counter) 

inrtua  MAXES.  TABLE  (COUNT).  TIME  -  CNVTSBF.  TABLE(J).  TIME; 

AUX-(3)t  •  CONCATENATE  SUNFLOC.TABLK( J) .TIME  CONCATENATE  SUEFLOC. TABLE! J). BUT 
CONCATENATE  5'  1  CONCATENATE 


SUEFLOC .TABLE(J).OFEN  CONCATENATE  ’  OPEN' 

IF  SUBFLOG. TABLE! J).EENABES  HE  (27)'  1 

TlgE  AUX-AUX  CONCATENATE  SUEFLOC. TABU !J).BEMABXS; 

ME SSACE_NAEXX. TABLE! COUNT). MSG  -  AUX; 

(a  meaaage  la  coaatructad  with  rumray  opening  Information) 


ENOLOOF; 

END  AISFOKT  PLANNING  LOG  MESSAGE  CENEBATION; 
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PROCESS  LOCMKS  SAG  KSORT 

[This  procass  sorts  log  sassages  gsosrstsd] 

LOOP;  (J  ■  1  TO  COURT-1 )  (sort  on  tins  sssoclstsd  with  sack  sassage] 


REPEAT  WHILE  (l  CTO); 

IP  KESSACRHAKEE. TABLE  (L+1).T1HK  LT 
mSSAGS  MAKER. TAELS  (L).TIME 

THEE  (exchange  Lth  aassaga  altk  L  +  1st  sassage) 

TEMPI aMSSAGE  MAKER. TAILE(L)  .TUB 
TEMP2*MSSAflE_HAKER.TAfLE(L).MSC; 

MESSAGE  MAKER. TASLI(L)  .TIKE- 
MESSAGE~MAEER.TABLE(L+1).TIME; 

MESSAGE  MAKER. TABU(L).MSG- 
MESSAGE^kUKER  .TAELE(L+1 )  .MSG ; 

MSSACEJttKER.TABLE(L+l)  .T  ME -TEMPI; 

MESSAGE MAKER .TARLE(L+1 ) .MSG-TEMP2: 

L  -  L  -  l; 

ELSE  L  •  0 


EMD REPEAT; 


EMOLOOP 

EMD  LOC_M8SACE_SOCT; 


£9i-; 


PROCESS  PLAG_NEW_ME  S  SAGES 

[Thla  procaaa  dttenlm  which  iiau|ci  era  newly  added  or  nodlfled  In  order  to  highlight  than  on 
atatua  auaaary  acreen) 

INKEEP  -  0;  (lnltlallaa  1NKEEPJ 

IF  (PLUMES. TAELE(n.TII«  E0  0)  AMD  (  OUNCES  .TABIJE(1).M8C  IQ  (80)  •  ') 

THEM 


to 


LOOP;  (J  -  1  TO  COUNT) 

INKEEP(J)  •  1;  (no  old  neaaagee,  ell  new  neaaagea  will  ho  highlighted] 
EMPLOOP; 

ELSE  [new  Manage  le  coopered  with  old  noaaege  table  and  any  new  entry  la  (lagged] 


L  »  1; 

J  •  1;  (lnltlallaatloo) 

IHD-  0; 

REPEAT  WHILE  (J  LE  COUNT) 

IF  NKSSACEIUEER.  TABLE  (J). TIME  LT  OLDHES.  TARLE(L).TI* 

THEM  (If  tlnaa  of  aeaaagea  are  not  equal (  there  axlet  a  new  neaaage] 

IND-UTO  +  1; 

IMLEEP(J)-  1; 

J  -  J  +  1; 

EL8KIF 

MESSAGE  MAKER. TABLB(J). TIM  Eg  0L ONES. TAILE(L) .TIME; 

THEMIF 

MESSAGE  MAXEE.TAELE(J).KSG  ME  OUNCES. TABLE! L). MSG 


O'Hare 
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t 


59T-; 


PROCESS  OLD_MESSAGE_TASLE_GENEEATlON 

(Ibis  process  copies  contents  of  MBSSAGEJKAKES  Into  0LDKE8  constructing  s  copy  of  curreat  MSU|«s  to  be 
used  on  next  cycle  es  old  *000010  Coble) 

LOOP;  (J  -  1  TO  COUNT;  s  new  ’OLD  MESSAGE'  table  Is  crested) 

OLOMES.TABLE(J).TIME  -  «SSAGE_KAKER.TABLB(J).T1ME; 

OLCMS.TABLE(J)  .MSG  -  MESSAGE JtAKEE.TABLE(  J)  .MSG; 

EMDLOOP; 

END  0LD_JCSSAGS_TABLE_GEMBSAT10E  ; 


IN  (OUST AT,  MESSAGE JIAKXR.  COUNT,  INKEEP); 

INPUT  (  R STATUS  ) ; 

(This  routine  control*  O'Hare  etatue  a  unary  screen) 

CHE  PNA1C  [character  variable  of  length  I  containing  aaae  of  DMS  penal  lnltlallaed  to  'OHSTATUS' 
-  naaa  of  panel  that  control*  o' He  re  atatua  e  unary  acreen) 

INT  CURSOR  [integer  earlahl*  containing  curaor’a  poaltlon  on  acreen) 

NITS  DM(28)  (8  bit  variable  of  data  meek  uaed  In  0M5) 

INT  CONVEET_SCROLL  (uunrlcal  value  of  acroll  data  field) 

INT  TM  (Integer  rapraaentlng  current  tlae) 

DM  -  FLDOEF;  (aet  data  Basks  to  default  Intensity  (no reel)) 

DM(28)  -  ruNIGH;  (aet  eaaaage  data  meek  to  high  Intensity] 

CURSOR  •  1A;  (aet  cursor  to  position  1*  (on  acroll  data  field) 

DELTA  *  MI N( COUNT,  10);  [only  up  to  10  eessaga*  can  be  displayed  at  one  tine  DELTA  la  auaber  of 
Messages  to  be  displayed ) 

PERPOEN  SET_OP_SCEEEN_POINTEES_(HSTAT); 

TAOX  -  GMT;  (currant  tine  Is  obtained] 

PEEypgM  CHAEACTEETO_NU*EI  CALCONVEES IONOFT  IKE  ; 

PtgPggM  DmSIONjOF  LOG_MES8AGES_EASED_ON_CUEEENT_TIME; 


£91-; 


THEM 

PERFORM  SCROLL_FUNCTION_SET_UP ; 
PERFORM  SET  UP  SCREEN  LOG  MESSAGES  i 


ELSE  (If  no  log  Hiugti  exlat] 


PERFORM  SET _UP_MUU_SCREBM  MESSAGE; 
PERFORM  DISPLAY J>AMKL; 

IF  RSTATUS  E£  ENTER 
THEN 


DM  ■  FLDDEF;  [ut  data  aaaka  to  default  iatenelty  (normal ) ] 
DH(28)  ■  FLDH1GH;  (aat  ueaaaga  data  aaak  to  high  Intensity] 

CALL  H  CHECK; 


INPUT  (OHSTAT,  COMVEETSCROLL); 

(Ttila  routine  checka  for  arrora  occurred  on  acreen  aa  a  raault  of 
errooeoua  entry  and  returna  an  appropriate  acraen  ueaaage  advlalng  uaer 
with  correctional 


IF  OHSTAT  .MSG  NE  'DATA  ENTERED' 

THEN 

DM(CURSOR)-PLDHIGH; 

[highlight  arroneoua  entry] 
CONVERTSCROLL  -  0; 

ELSE 

OHSTAT . SCROLL  -  (*>'  ’;  (Scroll  data  field  la  blanked| 
OHSTAT. MSG  -  'DATA  ENTERED  AT'  COMCATEMATE  GMT; 

(tine  la  adjuated  accordingly  on  acraen  neaeage  line] 


BMDRBPEAT ; 


END  BSCREEN; 


PROCESS  SET_UP_SCEKEH_POIHTEM_(HSTAT) 

[This  process  sets  up  sersee  pointers  for  IMS  use) 

OH_LOADLIST.WX.CE1L  -  ADOt(OHSTAT.WX.CEIL); 

OH  LOADLIST.  WX. VIS  -  ADDt(OHSTAT.WX.VIS); 
OH3XMH.IST.WIHD. DIE  -  ADOE(OHSTAT.WIHD.DIE); 
OH_IXMDLZST.WIND.PEL  -  ADDE(OHSTAT. WIND. PEL); 

LOOP;  [J  -  1  TO  3  J 

OHIXMDLIST.AIXEUN(J)  «  ADDB(OHSTAI.AXE(  J)  ); 
EHDLOOP; 

LOOP;  [J  -  1  TO  A) 

OH  IXMDL  1ST . DEPEUH( J )  -  ADDE(OHSTAT.DBP(J)); 
EMDLOOP; 

OH  LOADLIST  .CAP  •  ADOE(  OH  ST  AT.  CAPACITY)  ; 

OH_LOADLIST .CAPCF  -  ADW(OHSTAT.PCT  HC); 

OHLOAH. I  ST .  SCROLL  -  ADDB(OHSTAT.  SCHOLL) ; 

LOOP;  [J  -  1  TO  1J| 

OBJXMDLIST.LOGJfSG(J)  -  ADDE(0H8TAT.L0G_HS0(J)) 

EHDLOOP; 

0H_IXMH.IST.M8C  «  ADOt(OHSTAT.HBC); 

BHD  SET  UP  SCBEHM  POIHTHHS_(HSTAT); 


69T-; 


PROCESS  CHARACTER  TO  NUMERICAL CONVERSION_OP_T1KE  , 

proc...  convert*  tU.  fro-  cher.ct.r  to  nu-rlcnl  det.) 


Get  STRING  (TAUX)  edit  (TH)i 


Get  STRING  *  PL/I  *t*t*-*nt  convert* 
numerical  data] 


character  data  to  apacif lad  format 


END  CHARACTERJCONVER  S  ION_OP_T  INK_TO_»IMERI  CAL ; 


K> 


Of 
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-«  «"<* *“*«•  b“'d »“  cu"ent  runnln8 14“' 

ir  MKSSAGEKA*E*-TA»L£(1).TIM*  SI  ™ 

m*  LL-O;  ILL  i.  ounber  of  -0**1*'  bofOM  c«rnnt  tlnel 
ELSE 

HP  EAT  IBM  (*SSAGKJum(J).TIM  Lt  nt)  la  -  1  TO  COW!) 

LL  -  J; 


mdeemat; 

m  -  CQOTT-LL;  ILH  to  m-btr  of  -«•«*«■  •**•*  current  tint) 

»  -  W*  (S.LL); 

E  -  MB  (S.UOj 
If  (I  ♦  ft)  LT  DELTA 
THEM  If  lit  5 
THEM 

E  -  DELTA-*; 

If  E  LI  S 

TWEE  E  “  DELTA-*; 

~  im«  -  Ll-E  ♦  f;  (IMS  point.  f  »«-«  •*  «“*  to  w  41wU^1 


ELM  IEDEX  -  1; 

HUT  .  LL  ♦  E;  [BER  point,  to  n«btr  of  l-t  •»•*«•  to  bo  AlofUfM) 
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PROCESS  SCROLL_FUNCTION_8ETJJP 

(This  process  performs  scrolling  function  associated  with  O'Bare  status  sunmary  screen  by  setting  up 
pointers  to  first  and  last  messages  to  appear  on  screen  at  one  time] 

INDEX  -  INDEX  +  CONVERT_SCROLL;  (scroll  number  is  added  In] 

NEXT  -  NEXT  +  CONVERTJJCROLL ; 

IP  NEXT  LT  1  [since  negative  scroll  maiber  la  permitted] 

THEN 

N  -  1;  (pointers  are  set] 

L  -  1; 

NEXT  -  1; 

INDEX  -  NEXT-DELTA  +  1; 

ELSEIF  INDEX  GT  COUNT 
THEN 

N  -  COUNT;  [pointers  are  set) 

L  -  COUNT; 

INDEX  -  COUNT; 

NEXT  -  NEXT  +  DELTA  -  1; 

ELSBIP 

(NEXT  LE  COUNT)  AND  (INDEX  GE  1) 

THEN 

M  -  INDEX; 

L  -  NEXT; 

ELSEIF 

Tinder  lt  l)  and  (next  ce  l) 
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PROCESS  SET_UP_SCRREN_LOC_MESSACES 

(This  process  determines  screen  aaasagas  to  be  displayed  based  on  pointers  calculated  before,  and  eete 
up  pointers  for  DKS  use;  snd  constructs  aassaga  headings] 

FLAG  -  'O'B; 

It  -  1; 

if  hessacemakke.table(M)  .time  le  tm 

[If  first  aeasaga  tine  la  less  than  current  tine) 

THEN 

OHSTAT.LOG. MSG (E)  -  (22)*  '  CONCATENATE 

■*•* ‘RECENT  CHANGES  PtflM'  CDNCATEMATE  SUESTE(  HESSACE_HAKER.TABLE(1)  .KSC.3,5)  CONCATENATE 
•  (set  up  header) 

OHJL0ADLIST .  LOG_MSG(E)  -  ADOB(OHSTAT . LOG_MSG(E)  )  ; 

[set  up  pointer  for  header  for  IMS  use) 

ELSE 

OHSTAT.LOGKSG(E)  -  19*  '  CONCATENATE  ■•“•EXPECTED  CHANGES  TNEOIKH'  CONCATENATE 
SUBSTEC  IMS  SAGE  MAEEH.TABLE(COPNT)  .M8C.3.S1  CONCATENATE  •  •;  [eat  up  header) 

OH_LOADLI3T.LOG  MSG(K)  -  AOOg((MSTAT.LOG_MSG<X)  ) ; 

(set  up  poTntar  for  header  for  CMS  use] 

FLAG  -  ’l'B; 

REPEAT  WHILE  (E  LE  13);  (J  -  M  TO  L) 

E  -  E  -  1; 

IF  MESSAGE_MAEES.TABLE( J),TIME  LE  TM 
THEN 

IF  IMCEEP(J)  Et)  1  (if  it  is  e  new  sassage) 
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THEM  DMCK+14)  -  FLDHIGH; 

[highlight  HiMgt  | 

OHSTAT.LOG  MSC(K)  •  MESSAGE  MAKES. TAILE(J)  .MSG; 
OH_LGADLIST.LOG _HSG(K)  -  ADMJOHSTAT . LOCMSC(K) ) ; 


ELSE 

IF  FLAG  E£  'O'  1 
THEE 


DM(K+14)  -  PLDDAKK;  [darkao  icftm f 
K  -  E+l; 

OHSTAT.LOG_MSC(K)  -  (19)'  '  CONCATENATE  '  ****EIPECTED  CHANGES  THROUGH ' 
CONCATENATE  SUBSTS(  MESSAGE  MAKES.  TABLE  (COUNT)  .MSG.  3. 5)  CONCATENATE  ' 
AAAAA I . -  ~  - 

OH_LOADLIST.LOG :JBC(K)-ADDR(0HSTAT  .LOC_MSC(K)  ) ; 

FLAO-*l*Ej 

(•III; 

IF  INKEEF(J)  Eg  1  (If  It  1*  a  now  aaaaaga| 

THEN  DM(K+14)  -  FLOHIGH;  [highlight  aaaaaga] 

OHSTAT.LOG  HSC(K)«MES8AGE  MAKES. TASLE(J). MSC; 

OH__LOADLlST.LOC_MSG(K>  •  ADOS(OBBTAT . LOC_tCC (K)>; 

K  -  K  +  1; 

SEFEAT  NH1LE  (K  LE  13)  [If  auabat  of  aaaaagaa  ara  laaa  than  10,  darkan  raat  of 
acraas] 

DN(K+14)-FLD0AEK; 

K  •  K  ♦  lj 

EMPSEFEAT; 

END  SET  UP  SCREEN  LOG  MESSAGES; 
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PROCESS  SET JJfP_NULL_SC  REEK JIESSACE 

(This  process  Issues  s  aaaaaga  Indicating  there  ere  no  log  Messages] 

0HSTAT.L0G_MSG(1)-(21)'  1  CONCATENATE  '****M0  LOG  ENTRIES  HAVE  BEEN  MADE****'; 

OHLOADLIST .  LOG _HSG<  1 )  -ADDR( OBSTAT .  LOG  NSC ( 1 )  )  i 

END  SET_UP_NULL_SCREEN_MESSACE; 

PROCESS  DISPLAY  PANEL 

[This  process  Invokes  PDISPLAY  preprocessor  uhleh  In  turn  Interfaces  with  DW  panel  aansger  and  displays 
screen] 

END  DISPLAY_PANEL; 
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R0UT1ME  HCHECK 

IMOjJT  (OH 8 TAT,  CONVERTSCROLL)  i 

(This  routine  check*  (or  errors  occurred  on  screen  as  a  result  of  erroneous  entry  and  returns  an 
appropriate  screen  nee sage  advising  user  with  corrections] 

DECIMAL- 

ERR1  -  ' NUMERIC  INPUT  REQUIRED' 

ERR3  -  ’MO  DECIMAL  FOURS  ALLOWED' 

NO  ERR  -  'DATA  ENTERED ' ; 

OHSTAT.MSC  -  ROERI; 

OB  COHVKRSIOB  REGIR:  JOB  CONVERSION  1*  a  PL/1  feature,  It  Is  Invoked  If  e  character  data  la  detected 

’  In  nunertcal  field) 

OHSTAT.MSC  -  ERR1; 

RETURN; 

Cat  STRING  (OHS TAT. SCROLL)  EDIT  ( CO*V1IT_SCROLL ) ; 

[conversion  to  nuusrlcal  data  Iron  character  data] 

IP  VERIET  (DECIMAL,  OH  ST  AT.  SCROLL)  -  0 

THEM  OHSTAT.MSC  -  RRR3; 

END  HCHECK; 


2.4  Planning  Log  Selection  Screen 

The  processing  associated  with  the  Planning  Log  Selection  Screen 
is  shown  on  pages  2-178  to  2-185. 


9  LX-, 


M 


[•••LOCAL  VARIABLES*** ) 

STRUCTURE  LOGNUH  [planning  log  snlactlon  aeraan  Information) 

—  W  (1“*th  2>  ftf  choices  partalnlng  to  A 

—  MSC  Icharaetar  variable  (length  80)  reserved  for  acreen  meaaagea) 

ENDSTEUCTPRB : 


STRUCTURE 


LOGLOADLIST  (a  structure  of  pointers,  one  for  each  data  flald  on  acraen  used 
for  loading  and  unloading  data  to  and  from  screen) 


by  panel  manager 


PTt  CHOICE  (A)  [pointers  for  choice  field] 

PT»  MSC  [pointer  for  neaaage  data  field) 

am  PENCE  [32  bit  variable  aa  prescribed  by  DMS  manual  lnltlallaed  to  string  of  (32)  «i'g] 
BNDSTEUCTURE: 
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NJ 


ROUTINE  LOGS 

IM0U^[Thl»  routine  Invoke*  planning  log  «election  ecreenl 
(initialize  ecreen  to  blank* I 


T OGNUH. CHOICE  (1)  -  '  't 
L.OGNUM.  CHOICE  (2)  -  *  '; 

LOG NUM. CHOICE  (3)  •  '  'i 
L OGNUH. CHOICE  (A)  -  ' 

LOG NUM. MSG  -  (80)  '  ' I 

REPEAT  UNTIL  (RSTATUS  NE  PF12) 

LOGNUMDATA  -  LOCNUM; 

REPEAT  UNTIL  ( RSTATUS  ME  M2) 

CALL  L SCREEN; 


1M0UT  <LOGMUM_DATA,  RSTATUS); 

(Thi*  routine  control*  planning  log 


■election  acreen] 


EMPREPEAT; 

EMPEEPEAT; 


end  LUGS; 
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EOUTIMg  LSCREEN 

IMOUT  ( LOGNUM_DATA ,  (STATUS); 

(Tbit  routine  control#  planning  log  eelectlon  ocreenj 

CHE  PMAHE  [character  variable  of  length  8  containing  naan  of  OHS  panel  lntlallaad  to 
naae  of  panel  that  control#  planning  log  eelectlon  acreen] 

IHT  CURSOt  (Integer  variable  containing  curaor'a  poaltlon  on  acreen] 

BITS  DM(5)  (8  bit  variable  of  data  naaka  uaed  In  DMS] 

PERFORM  SETJJP_SCRBEH_POIHTERS_(UX;S)j 

DM-FLDDEF;  [net  data  naaka  to  default  lntaaaltp  (nornal)J 
DM(S)  -  PLDLHIGH;  (aat  neaaage  data  naak  to  high  lntanalty) 

CURSOR  ■  1;  (aat  curaor  to  poaltlon  1) 

REPEAT  UHTIL  (RSTATU8  HE  ERQ) 

PERFORM  DISPUTJPAMEL 
IF  (STATUS  E£  PA1 
THEM  atop; 

IF  (STATUS  MB  EMTER 
THEM; 

ELSE 

DM  •  FLDDEF;  (aat  data  naaka  to  default  lntanalty] 

DM  (S)  ■  FLDHICH;  [aat  naaaaga  data  naak  to  high  lotenaltr) 


' LOGGER ' 


T8T-: 


) 


ro 


XWOUT  ( LOGNUMJJATA ) ; 


—  IThlf  ratine  cheek,  for  error,  occurred  on  screen  **  *  r'*““  or 

entry  »nd  return,  v.lue  for  cur«>r  pointing  to  flr»t  d.t.  field  where  «n  error 
h“.  occurred!  Ih.  .n  .pproprl.t.  .cr.en  1.  L.ued  .dyl.lng  u«r  with 

correction*! 

IF  LOGMUHJJATA.MSG  NB  'DATA  BMTERBD* 

THEM  DM(CUgSOg)  -  FLDHIGH;  [highlight  erroneou.  entry  1 
ELSE 


CALL  LVALID; 


INPUT  (LOGNUM_DATA)i 


~  [Thlt  routine  perform,  d.t.  v.lldatlon  cb«k»  <»  •»••>  entrie. 
.nd  return,  y.lue  for  curoor  pointing  to  flr.t  Invalid  dm 
field.  Also,  sn  appropriate  screen  nessage  is  Issued  advising 


uf onwrAnfl nni 1 


If  LOGNUMJ)  AT  A .  MSG  MB  MOMB 

THEM  DM(CUBSOB)  -  FLDHICH; 

[highlight,  lny.lld  entry] 


ELSE 


CALL  LUPDATE; 

1M0UT  (LOG NUX  BATA.  BSTAIUS); 

(Thl.  routine  1.  performed  only  when  there  ere  no 
error,  committed  on  .creen.  It  update, 
appropriate  variable,  pertaining  to  thin  eccecn 
prograu  with  new  ac:een  entrle..  Al.o,  return, 
new  value  ef  ESTAniSJ 


BHPBEPEAT 


END  L8CREEN 
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MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BU«CAU  OF  STANOAftOS  -  '963  -  A 


PE0CES8  SET_UP_SCaEEH_POIHTMS_(  LOGS  ) 

[This  procui  Mta  up  terMO  pointer*  for  IMS  uao] 

LOOP;  (J  -  1  to  4]; 

LOCLOADLIST. CHOICE  (J)  -  A  DOC  (  LOG  MJM_DATA.  CHOICER  )) 
EWDLOOP; 

LOC  LOADLIST.HSC  -  ADOC  ( LOCMJM  DATA. NSC); 

END  SET  UP  SCEEEH  POINTS KS  (LOGS); 
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ROUTINE  L CHECK 

INPUT  (LOGMM_MTA) ; 

OUT  (CURSOR); 

(This  routine  chocks  for  arroro  occurred  on  ocraan  as  a  result  of  erroneous  entry  end  returns  value 
for  cursor  pointing  to  first  dots  field  share  an  error  has  occurred;  and  an  appropriate  screen 
message  la  Issued  advising  user  with  correctional 

LOGNUMMTA  -  'DATA  ENTERED ' ; 

REPEAT  WHILE  ( UOCMUM JOATA .  MSG  Eq  'DATA  ENTERED 1 )  ;  IJ  -  1  to  4) 

CURSOR  -  J 

IF  X  (LOGMMJDATA.CBOICE(J) )  HE  0 


THEM  LOCNUM  DATA. MSG  -  '  INPUT  MUST  RE  X  OR  SLANK* 
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MOTIMI  LVALID 

ihout  (locmmjiata): 

OUT  (CUlSOg): 

(Tills  rout  1m  porfono  data  validation  chacks  on  acraon  antrlas  and  raturns  valua  lor  cursor 
pointing  to  first  Invalid  data  tlald.  Also,  an  appropriate  acraon  nannagn  la  Issued  advising  user 
with  correct lone] 

LOGMMMTA.HSC  •  'DATA  U1IUD'; 

FLAG  -  0; 

1EPEAT  MHIU  (FLAG  IT  2)  (J  •  1  to  4) 

CUISOK  -  J; 

IF  LOGMMJIATA.CaOICB(J)  III  '  » 

THEM  FLAG  -  FLAG  +  1; 

«gp  MEAT; 

IF  FLAG  t£  2 

T—  LOGflDM_DAT A . M9G  -  ' SELECT  OKLT  OK  FLAWUC  LOG'S 
«LgI  COUOC  -  Is 

END  LVALID: 
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! 


ROUTINE  L  UPDATE 

INPUT  (LOGNUMJMTA,  I  STATUS) 

[This  routine  1*  ptrfontd  only  when  than  are  ao  errors  coMltted  on  screen.  It  updates 
appropriate  varlablaa  pertaining  to  this  acraan  progran  with  new  screen  entries.  Also ,  returns  new 
value  of  RSTATUS) 

It  LOGNUM_DAXA.CBOia(l)  IS  '  ' 

THEN  ESTATUS  •  PP13;  (weather  and  wind  planning  log  la  aslected| 

IP  LOGNUH_DATA.CHOICE(2)  NR  '  ' 

THEN  ESTATUS  •  PP14;  (airport  planning  log  la  selected) 

JUS  LOGNUH_DATA.  CHOICE! 3)  NE  •  ' 

THEN  RSTATUS  -  PP15;  [equipment  planning  log  la  aalacted) 

IP  LOGNUM_DAXA.  CHOICE!  4)  HE  *  ' 

THEN  RSTATUS  -  PF16;  (dewand  planning  log  la  selected) 

ELSE  LOCMUMOAIA.HSG  -  (80)  >  ' ;  [ess  sags  line  Is  blanked] 

END  LUPDATE; 


r 


I 


i 


2.5  Weather  and  Wind  Planning  Log  Screen 

The  following  pages,  2-187  to  2-206,  describe  the  processing 
associated  with  the  Weather  and  Wind  Planning  Log  Screen. 
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[»*•!.  OCAL  VAEIABLES] 


STEUCTUEK  HIDATA  LIKE  UXLOG 

(This  atructura  la  alailmr  to  VUG  uaad  a  «orkla|  area  wlchla  acraaa  routlaa) 

EMP8TMICTUIK; 

ST1UCTOEI  CNVKTja  LIES  CNVTWX 

[Thla  atructura  la  alaallar  to  CEVTHE  uaad  aa  working  araa  within  acraaa  routlaa) 

EHDSTEUCTUBE  ; 

STEBCTUBE  WXJUMDUST  (a  atructura  of  polo tare,  ooa  for  aacta  data  field  on  acraan  naad  by  panel  aaaagar 
for  loading  and  unloading  data  to  and  fron  acraan) 

GEOUP  TAIL! (13) 

PTE  TIME  (polntar  for  tine  data  fiald) 

FT1  CEIL  [polntar  for  calling  data  flald| 

PTE  VIS  (polntar  for  vlalblllty  data  ftald) 

PTE  DIE  (polntar  for  dlractlon  of  wind  data  fiald] 

PTE  VSL  [polntar  for  raloclty  of  wind  data  fiald) 

PTE  BEMABES  (polntar  for  raaarfca  data  fiald) 

PTE  MSG  (polntar  for  acraan  aaauaga  data  fluid) 

BITS  PENCE  [32  bit  rarlabla  aa  praecrlbad  by  MS  annual ,  lnltlallaad  to  at  ring  of  (12),1'S| 
ENPSTBUCTOBE ; 
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KOUTIME  WLOC 

IIKXJT  (WLOC,  CHVTVX,  B STATUS ) ; 

[Thl»  routine  Invoked  weetber  end  wind  p leonine  log  ecreen] 

BEPKAT  BMT1L  ( I8TATUS  JR  P»12)s 

WX_DATA  -  HXLOG; 

cavnja  -  cwm; 

CALI  Hscunr; 

IHOOI  (  W_DATA ,  CHVBTja  ,  BSTATUS  )  ; 

[Thin- routine  control!  Mother  end  vied  plenulng  log  ecreen) 

XMP1EPXAT} 

IP  SUEST*  (UXJDATA. MSG,  1,12)  JMJ  'DATA  KHTKUD' 

THEE 

HXLOG  •  VXDATA; 

CHVTVX  -  CHVKT_WX; 

an  hloc; 
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tOUTIM  USCtBEN 

IMOUT  (Wt  DATA.CmTJK.iSTATSU) 

- (This- routine  coottol*  weather  and  wind  pianola*  log  screen] 


CM  PHAM* 


[character  variable  of  length  8  containing  naan  of  MB  panel  Initialised  to  '*PLOCl\ 
T —  „t  panel  that  controls  weather  and  wind  planning  log  screen] 


IWI  CUKSOg  (integer  variable  containing  cursor* a  position  on  screen] 
»ITS  1*1(79)  [8  hit  variable  of  data  naaka  used  In  DUS] 

stmctom  aiojdata  mi  mmbta 

EMDSTkUCrUM; 


DM  -  PLDOtP;  [set  data  mask*  to  default  Intensity  (normal)] 
nf(79)  -  PLMICH;  (set  mess***  data  mask  to  high  Intensity) 
CUIS08  -  61;  [net  cursor  to  position  61;  first  data  field  ussd] 
AUXDATA  -  W_DATA; 

PgtPOtH  *ST_JJP_IC88M_POISIM8_(  W*OC  ) ; 

tgptAT  want  (hiatus  m  nrrw); 

PttrOMl  DISPLAT_PAML; 

IP  tSTATUS  «a  Ml 
Mg  stop; 
ip  tsTArn  n  uni 

ran  am  data  -  aui  data; 
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ELSE 

DM  -  FLDDEF; 

1*1(79)  •  FLDHIGH; 

CALL  WCHECX 

IHOCT  (HX_DATA,CNVKT_WX,CUlSOt); 

[This  routine  choeka  for  nrrora  occurred  on  ecreen  an  a  rcault  of  an  erroneous 
entry  and  returne  value  for  career  pointing  to  flrat  data  field  where  an  error 
has  occurred;  and  an  appropriate  screen  unseats  la  Issued  advising  user  with 
corrections) 

If  WXOATA.MSC  MB  ‘DATA  BMTBBBD' 

THBB  DM(CUtSOt)  -  FLDHIGH; 

ELSE 

CALL  WVALID; 

1M0UT  («_DATA, CUVET JK.CUESOA) ; 

(This  routine  performs  data  validation  checks  on  acrean  entries  and 
returns  value  for  cursor  pointing  to  flrat  Invalid  data  field.  Also, 
an  appropriate  acraen  message  is  Issued  advising  user  with 
corrections) 

IF  HX_DATA.K8G  HE  'DATA  gHTEBED' 

THEM  DM(CUESOH)  •  FLDHIGH; 

ELSE 

CALL  HUFDATE; 

I  POUT  (H* _DATA,CMVtT_HX); 

(This  routine  Is  perforuad  only  whan  thsra  ara  no  errors 
coaaltted  on  screen.  It  aorta  log  entries  on  screen  based 
on  tins) 

HE  DATA. NEC  -  'DATA  EHTEEED  AT'  COHCATEHATB  GMT; 

AUX_DATA  -  HE_DATA; 


EMDEEFEAT; 
END  W SC KEEN; 


I 


PROCESS  SET_UP_SCREEM_POIKTERS_(  WLOC  ) 

(Thl*  proceii  acts  up  icrun  point*™  for  IMS  dm) 

LOOP;  (J  -  1  TO  13] 

VXJUOADLIST  .TAILE(J)  .TIKE-ADDR(WI_DATA.TABLK(J)  .TIM); 
VXJUOADLIST. TABLE(J)  .<XIL-ADDt(VX_DAXA.TABLE(J)  .CEIL) ; 
VXJUOADLIST  .TABLE(J  )  .VIS"ADDE(VXJ)ATA.TABLE(  J)  .VIS); 

WXUJADL I  ST  .  TAILS  (  J  ).DIE"ADOE(VX_DATA.  TABLE  (J).  DIE) ; 
VXJUOADLIST . TABLE(  J  ) . VEIHU3DE( WX_DATA . TABLE( J )  .VEL)  ; 
«_LOAXIST.TABLE(J).EEMAEES-ADM(WI_OATA.TABLE(J) .  REMAKES) 
BHDLOOP; 

VXLOADLIST .  MSC-ADDR(  VXOATA.MSC)  ; 

END  SET  UP_SCBEEH_POIHEES_(VLOG); 


ROUTINE  WCHECK 

INPUT  (UXDATA.CNVRTJrt, CURSOR) ; 

(This  routine  cheek*  for  error*  occurred  on  screen  ••  a  result  of  en  erroneous  entry  end  return* 
value  for  cursor  pointing  to  first  date  field  uhere  an  error  hae  occurred;  and  an  appropriate 
screen  nessage  is  issued  sdvlslng  user  with  corrections) 

ERkl  -  'NUMERIC  INPUT  REQUIRED' ; 

ERR?  -  'NON- NEGATIVE  INPUT  REQUIRED'; 

ERR3  -  'NO  DECIMAL  POINTS  ALLOWED'; 

CURSOR  -  60; 

WXDATA.HSG  -  'DATA  ENTERED'; 

ON  CONVERSION  BEGIN;  [ON  CONVERSION  Is  a  PL/I  feature.  It  is  Invoked  If  a  character  data  Is  detected 
to  a  numerical  data  field) 

UXDATA.NSC  •  ERR1; 

RETURN; 

^  REPEAT  WHILE  (WX  DATA.MSC  EJ  'DATA  ENTERED' );[J  -  11  TO  13) 

ro  CURSOR  -  CURSOR  +  1; 

PERFORM  TMEDATAFIELDERRORCHECE; 

EXITIP  (error*  detected] 

CURSOR  -  CURSOR  +  1; 

PERFORM  CEIL_DATA_FIELD_ERROR_CHECE; 

RXITIF  (error  detected] 

CURSOR  -  CURSOR  +  1; 

PERFORM  V ISDATAF I  ELDERRORCHECX ; 

EXITIF  (error  detected! 


CURSOR  -  CURSOR  ♦  1 


VO 

U) 
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PROCESS  TIME  DATA  FIELDERRORCHECE 

(This  process  checks  for  errors  on  dee  decs  fieldl 

Get  StrtiwOfX  UATA.TABLE(J).TIME  EDIT  CHVRT  VX.TABLE!  J)  .TIME) ;  (conversion  fro*  chsrseter  decs  to 

—  nuaerlcal  dsts) 

IF  VERIFT('-',WX_DATA.TABLE<J).TIME)  EQ  0 
THEM  HXDATA.MSC  -  ERK2; 

ELSEIF  VERIFT<  • .  ’ .  tO_OATA.  TABLE!  J  )  .TIME)  Eft  0 
THEM  UX_DATA .  MSG-EBR3 ; 

to  END  TIME_DATA_FIELD_ERROR_CHECKi 

PROCESS  CEIL  DATA  FIELD_ERROR_CHECE 

(This  process  checks  for  errors  on  cellin(  date  field) 

Get  S  trloB(HX_OATA.TABLE!J).CEIL)EDIT!CMVRT_HX.  TABLE!  J). CEIL) 

(conversion  fros  character  data  to  numerical  data) 

IF  VERIFY  (,-'.W_OATA. TABLE(J). CEIL)  E2  0 
THEM  W  DATA.MSC  -  ERR2; 

ELSEIF  VERIFY!  * .  *  ,«_DATA.TA1LE(J)  .CEIL)  E£  0 
THEM  H*_DATA.MSC-ER13i 
EMD  CEIL  DATA  FIELD_EE10R_CHECEi 


S6T-; 


PROCESS  V  IS  JDATA_P  IELD_JSRAOR__CKECK 

[This  process  checks  for  errors  on  visibility  dots  field) 

Get  STRING  (WX_OATA.TABLE( J) .VIS)  EDIT  (CNVRTJtX.TABLE( J) .VIS) 
(conversion  froa  character  date  to  numerical  date  ) 

IP  VERIFY  (•-'  .WXDATA.  TABLE  (J ).  VIS)  E(±  0 

THEN  UXDATA.HSC  -  ERR 2 ; 

ELSE IP  VERIFY WXJJATA.T ABU (J).V IS )520 
THEN  WX_DATA . NSG  -  ERR3 ; 

END  V I  S_DATA_PI ELDERRORCHECK ; 

PROCESS  D I RDATAPI ELDERRORCHECK 

[This  proemma  check*  tor  error*  on  wind  direction  data  fiald) 

Cat  STRING  (UX_DATA.TAV  E(  J)  .DIR)EDIT(CNVRT__VX.TABLE(  J)  .DIR) 
[conversion  froa  character  data  to  nuaarlcal  data) 

IP  VERIF?( ,UX_DATA.TABLE(J).DII)  Kg  0 

THEM  UX  DATA.HSC  •  ERR2 ; 

ELSEIF  VERIPY(  *  .  •  ,UX_DATA.TAELE(  J)  .DIR)  Eg  0 
THEM  WX_DATA.MSG  -  ERR3; 

END  DIRJMTA_FIEU>_ERROR_CHECX; 


PROCESS  VEL_DATA__P1ELD_ERR0R__CHEC1C 

(This  process  checks  for  errors  on  wind  velocity  dote  field] 

Get  STRING  (UX_DATA.TABLE(J) .VEL)EDIT(CNVRT_UX.TABLK(  J) .VEL) 
(conversion  f roe  character  data  to  numerical  data] 

IT  VERIFY  (*-',«j:_nATA.TABLE(J).VEL)  Eg  0 

THEN  HXJkATA.MSG  -  ERR2; 

E1EE1F  VER1FY(  ’ .  •  ,HE_DATA.TABLE(  J)  .VEL)  Eg  0 

THEN  HX  DATA.MSG  -  ERR3; 

END  VEL_DATA_FIELD_HEROR_CHECE; 

(o 

I 

'O 

o 
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ROUTINE  WVALID 


INPUT  (HX_DATA,CNVRT_UX, CURSOR) ; 

[This  routine  perforaa  data  validation 
pointing  to  flret  invalid  data  field, 
with  correctional 


cbecka  on  acreen  antrlea,  and  returna  value  for  cureor 
Alao,  an  appropriate  acreen  aeaaage  la  leeued  advlalng  ueer 


♦POUR  -  A; 

♦FIVE  -  5; 

CURSOR  -  60; 

WX  DATA . NSC  -  'BATA  ENTERED' ; 

REPEAT  WHILE  (WX_DATA.MSG  E£  'OAT*  ENTERED');  I J  -  U  TO  13 1 

IF  (NX  DATA. TAB LE(J). TIKE  E£  (4)  •  '  )  A» 

—  (wfi>ATA.TABLE<J).CEIL  Bfl  (5)  '  ')  AND 
(HX~"dATA. TABLE!  J). VIS  EQ  (5)  ’  ')  AND 
(llX_nATA.TABU(J).DIE|5  (5)  '  '  >  SB 
(ltt"DATA.TABLE<J).VXL  E£  (5)  1  ')  AND 

( wTdata . table ( j ) . remarks  la  05 

THEN  (all  entrlea  blank] 

CURSOR  *  CURSOR  +  6; 

CNVRT  WX.TABLE(J).TIW  -  »»99; 


ELSE 


CURSOR  -  CURSOR  +  1; 

IF  (VX  DATA. TABLE(J). TIKE  HE  (4)  ’  ')  AND 
~~  (HX— DATA. TABLE(l). CEIL  EJ  (3)  '  ')  A® 

(«“DATA.TABI*(J).V1S  EQ  (5)  '  •’)  *» 

(VX-OATA.TABLE(J).DIR  |5  (5)  '  ')  “5 
(HX-DATA.TARLE(l) .VEL  EQ  (5)  *  ')  AND 
(IIX_DATA.TABLE(J)  .REMARKS  J3  (35) 

THEN  (entrlea  other  than  tine  are  Blaring) 

NX  DATA. NSC  -  'ADDITIONAL  INFORMATION  REQUIRED  FOE  THIS  TH«  ENTRT ' ; 


ELSE 


86i 


IT  Off  DATA.  TABLE)  J). TIME  E^  (4)'  '  )  AMD 
(MX~~DATA.  TABLE  (J)  .CEIL  HE  (5)'  ’>  OE 
)WX  DATA. TABLE) J). VIS  MI~(5)  •  ')  3£ 

)WX~DATA.TABLE(J).DIE  HE  (5)  '  ')  OB 
(m~DATA.TAILE(J).VEL  HE  (5)  '  •)  OE 
(HXDATA.TABLE(J).EEKAEXS  HE  (35)'  •» 

THEM  (tine  nlsilnBl 

HXDATA.MSC  -  'SPECin  TIME  ASSOCIATED  WITH  EHTEIES ' ; 

ELSE  (check  tie*) 

PEEPOEM  TIMECHECE; 

EX1TIP  (tlee  entry  le  erroneoue) 

PBBPOBM  LEPT_ZEEO_PADDIHO_OM_TIME_EHTEY; 

IF  HX  DATA.MSC  E£  'DATA  EHTERED' 

THEM 

CHESOE  -  CDESOE  +  1; 

IP  UX_DATA. TABLE) J)  .CEIL  ME  (5)'  ' 

THEM 

PEEPOEM  BIGHT_JUSTIPTjCEIL_DATA_EHTBT 
CUBSOE  -  CDESOE  +  1; 

IP  HX_DATA.TABLE(J)  .VIS  ME  (5)  '  ' 

THEM 

PEEPOEM  EICHT_JUSTIPT_VIS_DATA_EHTET; 
CUESOE  -  CUBSOE  +  1; 

IP  HX_MTA.TABU(J).D»  ME  (5) 


•  I 


THEN  IF  CNVRT_WX.TABLE(J).DIR  CT  360.0 
TOW 

wxjmta.msc  -  'wind  direction  host  wot 
EXCEED  360  DECREES' 

ELSE 

PERFORM  LEFT  ZERO  PADDIWC_OM_WIWD 

directiowewtrt; 

IF  WX  DATA.MSC  E^  'DATA  ENTERED’ 

TOW 

CURSOR  -  CURSOR  +  li 

IF  WX  DATA.TARLEf  J)  .VEL 
WE  (5)“'  ’ 

TOW  PERFORM  EIGHT 
JUSTIFY JTBLJDATA 

ENTRY; 

CURSOR  -  CURSOR  +1; 

PERFORM  LEFT 
JUSTIFY 
REMARKS  DATA 
ENTRY  ~ 
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PROCESS  TIME_CHECX 

(Thi*  process  checks  validity  of  tine  entry] 

BOOR  -  FLOOR  (FLOAT  (CNVETHX.TAELE(J) ,TIME)/100.0); 

H  SOUR  GT  23  (If  hour  portion  Is  greater  than  23] 

THEN  WXDATA.MSG  -  'HOUR  MUST  NOT  EXCEED  23'; 

ELSE 

MIN  -  CNVRTJfX.TABLE(J) .TIME  _  HOUR  *  100 
IF  HIM  GT  59  (If  alnute  portion  Is  greeter  than  59] 
THEN  UXJMTA.MSC  -  'MINUTES  MUST  NOT  EXCEED  59' 

END  TIMEJHECX; 
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PROCESS  RlCHTJUSTIFYjCEILJJATAJUrm ; 

[This  process  right- justifies  ceiling  entry) 

WX_DATA.  TABLE]  J).  CEIL  -  P(CMVRT_WX.TABLE(J).CEIL,  $FI VE) ; 

end  *Karr_JOSTirtjcEiL_n*T*_Hifrt»i 

PROCESS  RICHT_JUSTIPY_yiS_DATA_EIITRT 

[This  process  rlght-Justlfles  visibility  entry] 

C  -  P(100.0  *  CNVRTJrt. TABLE] J). VIS, tFOOB); 

W_DATA.TABLE(J).VIS  -  SUESTXC.l  ,2)COHCATUATE  COHCATEMATE  SUBSTR(C,3,2> 
END  EIGHT __JUST1FTJ3EXLJQATA_EWCET; 


PROCESS  LEPT_ZlRO_PjUJDIEC_OII_WI«D_DIR£CTIO»_KimY 

(Thl«  process  pods  wind  direction  entry  with  leedlnt  serose] 

C  -  P(CNVBT_WX.TABLE(J).DIE,$FOU*/; 

E  -  IS 
PILL  -  ■  • 

FLAG  -  ‘O'l; 

REPEAT  WHILE  (FLAG  EQ  'O'  »)  EEPEAT  UMTIL  (K  EQ  3); 

E  -  K  +  1; 

.IP  SDESTE  (C.E,1>  -  ’b1 

THEM  FILL  •  FILL  COMCATEHATE  'O'B; 

ELSE  FLAG  -  'l’»; 

EMPEEFEAT; 

U  FLAG  Eg  'O'E 
THEE  E  -  *i 

WX  DATA.TAILE( J) .DIE  »  FILL  COMCATEHATE  S0*STE(C.E,3-E); 

BHD  LEFT_ZEIK>_FADDIMC_OH_HIHD_DIEECTIOH_EHTHT; 
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PROCESS  LEFT  J UST I Pr_REMARKS_nATA_£lfrRY  ; 

(This  proc««*  lef t-Ju»tlfi«a  remark* ] 

K  -  0; 

FLAC  «  'O' A; 

REPEAT  WHILE  (FLAG  EQ  '0*  »)  REPEAT  UHTXL  (K  EQ  35)5 


E  -  K  +  li 

If  SUASTR(WX  DATA.TARLB(J) .REMARKS,  E,l)  ME  ' 

THEM  LAG  -  T'»i 
KEDREPEAT; 

C  -  SUESTR  ( WX_OATA ■  TA»LR( J ) .REMARKS ,  K,  3Wt); 
WXDATA. TAIL! (J). REMARKS  -  80ESTR  (C,  1,  3S>; 
ERD  LEFT_JUStIFT_REMARE8_nATA_E»TET! 


PROCESS 


RIGKT_JUST1PT_VEL_DATA_RRTRT 


c  -  PCCHVRT  tre.TARLK(J).VEL,  »«*>*> 

tix  DATA.TAELE(J)  .PEL  -  SUMT*(C,M>  COECATKEATE 


V 


RXGtfT  JUSTIPT_¥EL_DATA_EPTBT ; 
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ROUTINE  UUP DATE 

INPUT  (WX_DATA,CNVRT_UX)i 

[Tills  routine  is  psrforaed  only  when  there  ere  no  errors  coaeeltted  on  screen.  It  sort  log  entries 
on  screen  based  on  tlne| 

LOOP;  [J  -  II  to  12) 


REPEAT  WHILE  (L  GT  10); 

IP  !CNVRT_WX.TABLE!L+1)  .TIME  LT  CNVRTUX.TABLE(L)  .TINE) 
THEN 

TEMPI  -  HR  DATA. TARLE(L). TIME; 

TE*2  -  WX_DATA.  TABLE!  L)  .CEIL; 

TENP3  -  WX_DATA.TABLE(L)  .VIS; 

TEMP  A  -  HE  DATA.TAELE(L)  .  DI3; 

TEMP 5  -  UX_DATA.  TABLE!  L)  .VEL; 

TBMP6  -  UI_DATA.TA»LE(L). REMARKS; 

C TEMPI  -  CNVRT_UX.TAILE(L)  .TIME; 

CTEMP2  -  CNVET_WX.TAILE(L).CEIL; 

CTEMP3  -  CNVRT  UZ.TABLE(L) .VIS; 

CTEMPA  «  CNVRT3«.TABLE(L).DIR; 

CTEMP5  -  CNVRT_UX .  TABLE(L)  .VEL; 

UX_DATA.TABLE(L) .TIME  -  UZJDATA. T ABLE (L+l). TIME; 

UX  DATA. TABLE! L). CEIL  »  UX  DATA. TABLE! L+l). CEIL; 
WX_DATA. TABLE (L)  .VIS  -  HX_DATA.  TABLE!  L+l)  .VIS; 
MZ_DATA. TABLE !L). DIR  -  HX_DATA. TABLE! L+l) .DIR; 

UX  DATA.  TABLE(L).  VEL  •  UX  DAT  A.  TABLE!  L+l).  VEL; 
UX~DATA.TABLE!L).REMAEXS4E  DATA . TABLE! L+l ) . REMARKS ; 
CNVRT_WX.TABLE(L) .TIME  -  CNVRT_UX. TABLE! L+l). TIME; 
CNVRT_WX. TABLE! L) .CEIL  -  CNVRT  UX. TABLE! L+l)  .CEIL; 
CNVRT_UX.TABLE!L).VIS  •  CNVRT  9k. TABLE! L+l) .VIS; 
CNVRT_UX. TABLE!!). DIR  -  CNVRT_WX. TABLE! L+l)  .DIR; 
CNVRT  HX.TASLEU)  .VEL  •  CNVRT_WX.TABLR!L+l)  .VEL; 
WX_DATA.TABLE!L+1) .TIME  -  TEMPI; 


A. 


$ 


«  DATA.TARU(L+I).CEIL  “  TEMP2; 
WX  DATA.TASLE(L+1)  .VIS  -  TRMP3; 
WX— DATA.  TABUB(L+I).  DIR  •  T1MP4; 

wx  data.table(l+i).vel  -  te»5; 

IIX  DATA.TABLE(L+1). REMARKS  -  TEMPI 
CEVETWX . TARLK(  L+l)  .TIME  -  C TEMPI 
CMVRT  WX.TARLE(L+1). CEIL  -  CTEMP2 
CUVET- IfX.TARLE(L'fl)  .VIS  “  C TEMP 3; 
CEVRT_WX.TARLB(L+1).DIR  -  CTEMPA; 
CRVRT_«.TA8Lg(L+l)  .V1L  -  C TEMPS; 

L  -  L  -  I; 

ELSE  L  -  10; 


EEDEEPEAT; 


2.6  Airport  Runway  Surface  Planning  Log  Screen 

Pages  2— 208  to  2—226  describe  the  Airport  Runway  Surface 
Planning  Log  Screen  and  its  associated  processing. 
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[***LOCAL  VARIABLES ) 


STRUCTURE  SUKF__DATA  LIKE  SURE  LOG 

[This  structure  Is  slallsr  to  SURELOC  used  as  s  working  area  within  screen  routine] 

EMDSTRUCTURE; 

STRUCTURE  CNVRT_SRE  LIKE  CNVTSRE 

(This  structure  Is  slallsr  to  CNVTSRE  used  as  working  area  within  screen  routine! 

BNPSTRUCTURE; 

STRUCTURE  SURPLOADLIST 

(A  structure  of  pointers,  one  for  each  data  field  on  screen  used  by  panel  aanager  for  loading  and 
unloading  data  to  and  froa  screen! 

CROUP  TABLE!  11) 

PTR  TIME  [pointer  for  tlae  data  field) 

PTR  RUE  [pointer  for  runway  l»  data  field) 

PTR  SURE  (pointer  for  surface  condition  data  field] 

PTR  BRAK  [pointer  for  braking  condition  data  field) 

PTR  CLOSED  (pointer  for  runway  closure  data  field) 

PTR  OPEN  [pointer  for  runway  openings  data  field] 

PTR  REMARKS  (polntar  for  REMARKS  data  field] 

PTR  MSG  (pointer  for  screen  nesaage  data  field) 

BITS  PENCE  (32  bit  variable  as  prescribed  by  DMS  manual ,  initialised  to  string  of  (32)  ’l'B) 
EMDSTRUCTURE; 
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ROUTINE  SLOG 

INPUT  (SUET LOG,  CNVTSRF,  R STATUS) 

[This  routine  Invokes  airport  surface  and  runuay  planning  log  acreen] 

REPEAT  UNTIL  (RSTATUS  NE  PP12); 

SURFDATA  -  SURF  LOG; 

CNVRTSRF  -  CNVTSRF; 

CALL  S SCREEN; 

INPUT  (SURF_DATA,  CNVRT  SRF,  RSTATUS) 

[This  routine  controls  airport  surface  and  runuay  planning  log  screen) 

EHPEEPRAT; 

IF  SUBSTR  (SURF  DATA. HSG,  1,  12)  Eg  'DATA  ENTERED' 

THEN 

SURFLOC  -  SURF  DATA; 

CNVTSRF  -  CNVRT  SRF; 

END  SLOG; 

ROUTINE  S SCREEN 

INPUT  (SURFDATA,  CNVRT  SRF,  RSTATUS); 

[This  routine  controls  airport  surface  and  runuay  planning  log  screen| 

CHE  PHAHE  (character  variable  of  length  8  containing  none  of  DHS  panel  Initialised  to  ’APL0C2',  none 
of  panel  that  controls  airport  surface  and  runuay  planning  log] 

INT  CURSOR  (Integer  variable  containing  tha  cursor's  position  on  the  screen] 

NITS  0H(92)  [8  bit  variable  of  data  naak  used  In  MS) 

STRUCTURE  AUX_DATA  LIKE  SURF_DATA 

BNDSTEUCTUEE ; 
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DM  *  PLDDEF ;  [sec  data  uski  to  default  Intensity  (normal)] 

DM(92)  -  FLDHIGH;  [set  message  data  mask  to  high  lntenalty) 

CURSOR  -  71;  (get  cursor  to  position  71,  first  data  field  used  by  user] 

AUXJJATA  -  SURF_DATA; 

PERFORM  SET_UP_SCRERN_POINTERS_(SLOC); 

.  REPEAT  UMTIL  (RSTATUS  HE  ENTER); 

PERFORM  DISPLAY_PANEL; 

IF  RSTATUS  E£  PA1 
THEM  stop; 

IF  RSTATUS  HE  ENTER 

THEM  SURFJMTA  -  AUXJMTA; 

ELSE 

DM  »  FLDEF; 

DN(92)  -  FLDHIGH; 

CALL  S  CHECK; 

INPUT  (SURF_DATA,  CHVRT_8RF,  CURSOR); 

[This  routine  checks  for  errors  occurred  on  screen  as  a  result  of  an 
erroneous  entry  and  returns  value  for  cursor  pointing  to  first  data 
field  where  an  error  has  occurred;  and  an  appropriate  screen  message 
Is  Issued  advising  user  with  corrections] 

IF  SURF_DATA.MSC  HE  ’DATA  ENTERED' 

THEM  DM  (CURSOR)  «  FLDHIGH; 

ELSE 


! 

! 


CALL  SVAL1D; 

INPUT  (SUE7_DATA,  CKVIT  SW,  CURSOR) 

(This  rouClM  ptrfotu  data  validation  chacka  on  acraco 
antriaa  and  raturna  valua  for  cursor  pointing  to  first 
Invalid  data  flald.  Alao,  an  approprlata  acraan  neasaga  la 
lasuad  advising  uaar  Kith  correct  Iona] 

IT  S ITRF_DAT A . H SC  HE  'DATA  ENTERED' 

THEM  EM  (CURSOR  )  -  FLIwrCB; 

ELSE 

CALL  SUP DATE; 

INPUT  (SUW  DATA,  CHVSTgRT) 

(This  routlna  la  parforaad  only  Khan  thara  ara  no 
errors  coanlttad  on  acraan.  It  aorta  log  antriaa  on 
acraan  baaed  on  tine) 

SURF_DATA.NSC  -  'DATA  ENTERED  AT  '  CONCATENATE  CMT; 

AUS  DATA  •  SURE  DATA; 
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PROCESS  SET JJP_SCREEN_PO  I  NTERS_(  SLOG  ) 

(This  process  sets  up  screen  pointers  for  DUS  use] 

LOOP;  (J  -  1  To  13] 

SURF_LOADLIST  .TABLE(  J )  .TIKE  -  ADDS  (SURP_DATA.TABLE(J)  .TIME) 
SURPLOADLIST. TABLEf  J).RU*  -  ADDS  (SURP_DATA.TABLE<  J)  .RWT)  ; 
SURF_LOAOLIST.TABLE(  J)  .SURF  •  AO  DR  (  SURPJJATA .  TA1LE(  J) .  SURF  ) 

surf_loadlist.table(J).biak  -  addr  (surp  data. table (J).brak) 
SURPLOADLIST.TABLE(J).  CLOSED  -  A  DOR  ($imr_DATA.TABLE(J)  .CLOSED) 
SURP_LOADLIST.TABLE(J).OFEN  -  ADDR  (SURP_DATA.TABLE( J).OPEM) 

SURF  LOADLIST.TABLE(J). REMARKS  -  ADDR  (SURF_DATA.TABLE( J) .REMARKS) 
EHPLOOP; 

SURP  LOADLIST.MSC  -  ADDR  (SURP_OATA.WG) ; 

END  SET  UP  SCEEEN_POINTERS_(SLOG); 
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ROUTINE  SCHECK 

I  NOW  (SURFJMTA,  CWVRT_SRF,  CURSOR); 

(This  routine  checks  for  errore  occurred  on  ecreen  ee  a  result  of  an  erroneoue  entry  and  returna 
value  for  cureor  pointing  to  flret  data  field  where  an  error  hae  occurred,  and  an  appropriate 
ecreen  Manage  la  laaued  advlalng  user  with  corrections) 

ERR1  -  'NUMERIC  INPUT  REQUIRED'; 

ERR2  -  'NON-NEGATIVE  INPUT  REQUIRED'; 

ERR3  -  'NO  DECIMAL  POINTS  ALLOWED'! 

RWYERR  -  'VALID  RUNWAY  ID'S  ARE;  4R  4L  9R  9L  14R  14L  22R  22L  27R  27L  32r  12L  ALL'; 

RWYID(l)  •  ’  4R' ; 

RWYID(2)  -  '  4L' ; 

RUYID(l)  -  '  9R'; 

RWY1D(4)  -  •  9L' ; 

RWYID(S)  -  ' 14R' ; 

RWYID(6)  -  'I4L' ; 

RUTID(7)  -  ' 2 2R ' ; 

RWYID(8)  -  '22L' ; 

RWYID(9)  -  '27R' ; 

RWYID(IO)  -  '27L' ; 

RWYID(ll)  -  '32R' ; 

RWYID(12)  -  *32L'; 

RWYID(13)  -  'ALL'; 

RWYID(14)  -  •  •; 

SURPDATA.MSC  -  'DATA  ENTERED'; 

CURSOR  -  70; 

ON  COWBRSION  RECIN;  (ON  CONVERSION  le  a  PL/I  feature.  It  ie  Invoked  If  a  character  data  la  detected 
In  a  nuMrlcal  data  field) 


SURF  DATA. MSG  ■  ERRI; 


RETURN; 


REPEAT  WHILE  ( SURP_DATA.MSC  Eg  'DATA  ENTERED');  [J  -  II  to  13) 
CURSOR  •  CURSOR  +  1; 


J. 


ro 

l 

to 


PERFORM  TIME _DATA_P I EU>JBRROR_CHECK ; 

EXIT  IF  (error  detected] 

CURSOR  -  CURSOR  +  1; 

PERFORM  IUMWAT_ID_DATA_FIELD_ERROR_CHECR 
EXIT  IF  [error  detected] 

CURSOR  -  CURSOR  ♦  5; 

EMPREFEAT; 

END  SCHKCK; 
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PROCESS  RUNWAY  ID  DATA_FIELD_EIROR_CKECE ; 

[This  process  checks  for  errors  on  runway  ID  data  field) 

K  •  INDEX  (SURP_DATA.TARLE(J).RWY,  'b'); 

IF  (R  E^  0)  OR  (E  E2  1) 

THEM  C  -  SURF_DATA.TABLE(J).WY; 

ELSE  IF  K  52  2 

THEN  C  •  '  '  CONCATENATE  SURSTR  ( SUXF_DATA.TA»L!( J)  .twr,  1,  1)  CONCATENATE  (SURf_DATA 

taele(j).Ewy,  1,  l): 

RtSR  c  -  •  ’  CONCATENATE  SURSTR  (SURF_DATA.TARLE( J) .WY,  1.2); 

FLAC  -  'O'B; 

REPEAT  WHILE  (FLAC  52  '<>'«);  (E  *  I  To  Id  J 
IF  RWY1D  (E)  52  C 
THEN  FLAC  - 

ENDREPEAT; 

IF  FLAG  -  '0'»S 

THEN  SURF  DATA. HSC  •  RWYERR; 

END  RUNWAY  ID_DATA_FIELD_RBEOE_CHBCKi 


I 

I 


PROCESS  T IME_DATA_P I  ELD_ERAOR_C  HECX 

(This  process  checks  for  errors  os  dee  decs  field) 

Get  STRING  ( SUEF_DATA.TABLE(J) .TIME)  EDIT  (CNVtTSRF.TASLE(J)  .TIME 
[conversloo  froe  charscter  data  to  numerical  data] 

IP  VERIFY  (•-■,  SUEFDATA.TAELE(J).TIME)  HJ  0 

THEM  SURFDATA.KSC  -  ESE2; 

E1SEIP  VERIFY  <  •  . •  ,  SUEP_DATA.TABLE(  J) .TIME)  Hq  0 
THEE  SUEP  DATA.MSC  -  EIU; 

BED  TIHE  DATAJPIELD  EUOEJCBCCE; 


V 


N> 

O' 
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ROUTINE  SVALID 

INPUT  < SURE J) AT A,  CNVRT  SRF,  CURSOR); 

(This  rout  ins  performs  data  validation  checks  on  screen  entries  and  returns  value  for  cursor 
pointing  to  first  Invalid  data  field.  Also,  an  appropriate  screen  aessage  Is  issued  advising  user 
with  corrections) 

trouR  -  A; 

CURSOR  -  70; 

SURF  DATA. MSG  ■  'DATA  ENTERED'  ; 

REPEAT  WHILE  (SURF JJATA. NSC  E£  ‘DATA  ENTERED* );  (J  -  11  To  11) 

IF  (SURF_DATA. TABLE) J). TIME  EJ  (*)  1  ')  AND 
( SURF~DATA . TABLE (  J )  . RHT  Eq  (3)  '  ')  AND 
( SURFJDATA.TABLE(  J)  .SURF  (5)  '  ')  AN:'- 
(SURF  DATA.TABU(J).BRAK  EQ  (5)  '  ')  AND 
( SURF_DATA . TABLE(  J )  . CLOSE!) EJ  (6)  '  ’JltM 
(SURF  DATA.TABLE(J).OPEN  E£  (6)  '  ')  AND 
(SURFJJATA.TABLE(J).RLMARES  -  (27)  '  T)“ 

THEN  (All  cntrlea  «r«  blank] 

CURSOR  -  CURSOR  +  7 
CNVRT_SRF.TABLE(J).TIMB  -  9999; 

ELSE 

CURSOR  -  CURSOR  +  1; 

IF  (SURF  DATA. TASLE(J). TI»  NE  (*)  '  ')  AND 
(SURF_DATA.TAELE(J).RHT  HE. (3)  '  ')  AND 
(SURF  DATA.TAILE(J).SURF  Eg  (5)  '  ')  AND 
<SUtF-DATA.TASLE(J).UAK  BQ  (S)  '  ')  A® 

(  SURF_DATA . TABLE ( J )  . CLOSED  (4)  *  *T~ANP 

( SURFDATA . TA1LE( J ) . OPEN  EJ  (6)  '  ' )  AND 
(SURFOATA.  TABLE  (J).REMARES  Eg  (27)  '  ') 

THEN  (im  .otrlta  ar.  .laalnR) 

SURF  DATA.HSC  «  'ADDITIONAL  INFORMATION  REQUIRED  FOR  THIS  ENTRY'; 
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ELSE 


I*80 (SORF_UATA.TAlU(J)  .TXHE  59  (*>  , 

_  «SURF_DATA.TABLECJ).RVT  HE  O)  < 

(SURF  1>ATA.TABU<J).SURF  *g  S)  t 
(SURF”i>ATA.TAlU(J).*RAK  — _i5?.  x 
(8UR»"0ATA.TARLR(J). CLOSED  51  <6> 
(SOtf;MIA.TMLE(J).WM  «  W 


’)  AM> 

M  91 

•)  OR 

-)  Of 

'  ’)  95 
•>  or 


(SOW  MTA.TAILE(J).™™  ™  w 
(SinUnMTA.TA»LS(J).MlUL^  51  <271 

TIHE  ASSOCIATED  WITH  K««IES> 


ELSE 


CURSOR  -  CURSOR  +  1; 

x,  (SUV  DATA. TABLE! J) -RVT  Eg  (3)  ‘  |>  *» 

—  ((SUV  DATA.TAWJKJ).TW*  5*  (*)',’)  51 
(SURF  MtA.TJMM(J).SV*r  HR  (3)  |  |)  « 

(SURF- mja.tarlr(J).maa^,<5> 

(SURFDATA.  TABLE  (J>.  CLOSED  HE  (o)  )  »* 

[swjiata.tarli(J).wkh  HR  <6>  >,5« 

(SURF” DATA.TABLB(J).XWARES  ■*.  (13)  )) 

TURK  |runw*7  X®  l* 

SURF_DATA.KSC  -  *SFRC1FT  RUHUAT  ASSOCIATED  WITH  RHTRIRS' 

RLSR  (eh«ck  tlH*J 

CURSOR  “  CURSOR  -  Xi 


fEEFORK  TIKE_CHRCR; 
gnXf  (tlM  Rotry  i«  «rroo»oo»l 
nSSfORH  LRFT_a»D_FADOIHC_OH_tl*_n,I®T  S 
If  SURF JWTA.MSC  Rfi  ’DATA  RHTRRRB" 
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THEM 

CURSOR  - 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

PERFORM 

EHDREPBAT; 

IP  SURFDATA.MSC  Eg  'DAT*  ERTEIED* 

THEM  CURSOR  -  71; 

END  SVALID; 


CURSOR  4-  6; 

RICWT_JUSTin_R«_DATA_EMTE* ; 
LEFT_JUSTIPY_SURPJ)ATA_EMTRY ; 
LEFT_JUSTm_RRAK_DATA_EMTRY ; 

left_justipy_closed_data_eiitry; 

LEFT_JUSTIPY_OPEM_nATA_EMTRY ; 
U»T_JUSTIPY_REMARKSJ)ATA_ENTRY 
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PROCESS  TIMECHECX 

(This  process  cheeks  validity  of  t lee  entry] 

HOUR  -  FLOOR  (FLDAT(CNVRT_SRF.TABLE(J).T1KE)/100.0); 

IT  HOUR  CT  23 

THEM  SURF_DATA.MSC  -  'HOUR  MIST  HOT  EXCEED  23'; 
ELSE  MIN  -  CNVRTSRF . TABLE (J)  .TIME  _  HOUR  *100; 

IF  MIN  CT  59 

THEN  SURFJIATA.KSC  •  'MINUTES  MUST  NOT  EXCEED 
END  TIME  CHECX; 


ro 

I 

N> 

Nj 


PROCESS  LEFT_ZE80_PADDING_0N_TIME_£NTRY; 

[Thl a  process  pads  tine  entry  with  leading  aeroes) 

C  -  F<FLOAT(CNVRT_SRF.TABLE(J).TIME),  *FOUR)i 

E  -  0; 

FILL  - 
FLAG  -  'O' B; 

REPEAT  WHILE  (FLAG  EQ  ’0‘B)  REPEAT  UNTIL  (E  Eg  4); 
K  -  E  +  Ij 

IF  SUBSTR  (C,  E,  1)  Eg  *  1 

THEM  FILL  -  FILL  COHCATEMATB  ’O'; 

ELSE  FLAG  -  '1*8; 


EHDREPEAT ; 

SURF_DATA.TABLE(  J)  .TIME  -  FILL  CONCATENATE  SUBSTR  (C.E.5-E) 
END  LEFT  ZERO  PADDING  ON  TIME  ENTRY; 


t 
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PROCESS  RICHT_JUSTIPY_RWY_nATA_ENTRY 

(tills  process  rlght-Justlf les  runway  ID  entry] 

K  -  INDEX(SURF_DATA.TABLE(J).RWY,  *  ’); 

IP  K  Eg  2 

THEM 

C  -  •  '  CONCATEHAT*  SUBST*  (SURF  DATA.TABLE(J ) .RWY.l ,  1)  CONCATENATE  SURSTR  (SURE 
DATA. TABLE (J).RHY,  3.  1);  SURF_DATA.TABLE(J).RWr  -  SUBSTR  (C.  1.3)! 

IF  R  Eg  3 

THEN 

C  -  •  ■  CONCATENATE  SUBSTR(SURF_DATA.TABLE(J) -RWY,  1,2):  SURF_DATA.TABLE(  J)  .RHY  -  SUBSTR  (C, 

1.  3)i 

END  RIGHT_JUSTIEY_HfY_DATA_RNTRY ; 

PROCESS  LEPT_JUSTIFT_SURF_DATA_e»TRY 

(This  process  lefT-Justlfles  surface  conditions  entry) 

R  -  0; 

PLAC  -  'O'S; 

REPEAT  WHILE  (PLAC  Eg  ’O'B)  REPEAT  UNTIL  (R  Eg  5)i 

K  -  R  +  1; 

IT  SUBSTR ( SURE_DATA . T ABLE(  J )  . SURF ,  R,  1)  HE  '  ' 

THEN  PLAC  -  '  1 '  B; 

END REPEAT; 

C  -  SUBSTR(SURP_DATA.TABLE(J) .SURF,  R,  S-E) J  S DREDATA . TABLE( J ) . SURE  -  SUBSTR(C,  l,  5)! 

END  LEFT  JUSTIFY  SURF  DATA  ENIRY; 
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K  -  0; 

FLAG  -  'O'l; 

ttHM  jWIU  (FLAG  52  ’0’»)  WM  «!«!:  <K  IS  ‘>s 

t  -  k  ♦  1; 

IF  SUESTE  (WUOATA.TABLE(J)  .CLOSED.  K,l)  2* 

them  flag  -  •!’»; 

tWOWSAT; 


Tr,^  (SUEF__DATA.TA1H(  J) .CWSIO,  1.  T-C, 

KMD  UFT_JU8TIFT_CU>8«D_DATA_f«T»t  S 


2-224 


PROCESS  LEFT__JUSTIFY-OPEN_DATA_^ENTRY 

(This  process  let t-juatlfies  runway  opening  entry) 

K  -  0 

FLAG  -  '0’»i 

REPEAT  WHILE  (FLAG  Eg  ’O'B)  REPEAT  UNTIL  (E  E£  6); 

K  -  E  +  1} 

IF  SUBSTR(SURF_DATA.TABLE(J).OFEH,E,l)  HE  •  * 

THEM  FLAG  -  ’l'B; 

EMDREPEAT 

C  -  SUBSTR(SURF_DATA.TABLE(J).0PEH,E,7-E)  SURF J)ATA.TABLE(J)  .OPEN  -  SUBSTR(C,1,6); 

EHP  LEFT JUSTIFYOPEHJJATAEMTRY; 

PROCESS  LEFTJUST  irYRKNARES_OATA_EHTIY 

(This  process  left_jus titles  raaarka  entry) 

E  -  0; 

FLAG  -  'O'B 

REPEAT  WHILE  (FLAG  E£  'O'B)  REPEAT  UHTIL  (E  WJ  27); 

fill; 

IF  SUBSTR(SUEFJMTA.TABLE(J).IIMARES,E,1)K'  ' 

THEM  FUG  -  'l'B; 

EMDREPEAT; 

C  -  S UBSTR( SURF_DATA .TABLI(J)  . REMARES . E ,  2S-E);  SURF_DATA.TABLE<  J)  .REMARES  -  SUBSTR(C,  1,  27) 
END  LEFT  JUSTIFY  BENARES  DATA-EHTEY; 
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ROUTINE  S UPDATE 

INPUT  (SURFJDATA,  CNVRT_SRF); 

[Tills  routine  Is  performed  only  when  there  ere  no  errors  committed  on  screen.  It  sorts  log  entries 
on  screen  bseed  on  tine) 

LOOP;  [J  -  11  to  12) 

L  -  J; 

REPEAT  WHILE  (L  GT  10); 

IP  CMVRTSRF.TABLEIL+l)  .TINE  LT  CNVRT  SRP.TABLE(L)  .TIME 
THEM 

TEMPI  -  SURE JMTA.TAELE(L). TIME; 

TEMP2  -  SURF_DAXA. TABLE!  L).RWY; 

TEMP  3  -  SURF  DATA. TASLE(L) . SURF ; 

TEMP*  -  SURF^l)ATA.TABLE(L) .BRAE; 

TEMPS  -  SURFDATA.TABLE(L). CLOSED; 

TEMP6  •  SURF JMTA.TAILE(L). OPEN; 

TEMP 7  -  SURF JMTA.TAILE(L). REMARKS; 

CTEMP1  -  CNVRT  SRF.TABLE(L)  .TIME; 

SURFJDATA. TABLE(L)  .TIME  -  SURF  DATA. TABLE! L+l)  .TIME; 

SURFDATA. TABLE(L).RHT  -  SURF  DATA. TABLB(L*-1) .RUT ; 

SURF  DATA.  TABLE!  L).  SURF  -  SURF  DATA.  TABLE!  L+l)  .SURF; 

SURF_DATA.TABLE!L).BRAK  -  SURFjbATA.  TABLE!  L+l)  .BRAE; 

SURF_DATA.TABLE!L). CLOSED  -  SURF_DATA.TABLE[L+I)  .CLOSED; 

SURF  DATA. TABLE!L). OPEN  -  SURF  OATA. TABLE! L+l). OPEN; 

SURFJDATA. TABLE!!). REMARKS  -  SURFJDATA.  TABLE!  L+l)  .REMARKS; 

CNVRT_SRF . TABLE! L) . TIME  •  CNVRT  S&. TABLE! L+l). TIW 
SURF_DATA.TABLE!L+1)  .TIME  •  TEMPI; 

SURF__DATA .  TABLE!  L+l ) .  BUT  -  TEMP  2 
SURF  DATA. TABLE! L+l). SURF  -  TEMP3; 

SURFDATA. TABLE! L+l ).BRAK  -  TEMP*; 

SURF  DATA. TA1LE1L+1). CLOSED  •  TEMPS; 
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ELSE 

EMMEPEAT; 
END LOOP ; 


SURF_DATA.TABLE(L+1)  .OPEN  -  TEMP6; 
SURF  DATA. TABLE(L+1).EEMAIES  -  TEMP/ 
CEVRT  SRF.TA1LE(L+1) .TIME  -  CTEMP1; 

L  -  L  -lj 

L  -  10} 


END  SUPDATE 


2.7  Equipment  Planning  Log  Screen 


The  Equipment  Planning  Log  Screen  is  described  on  pages  2-228  to 
2-244. 
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[‘••LOCAL  VARIABLES*** ] 

STRUCTURE  KQUIP_DATA  LIKE  EQFLOC 

(This  structure  is  slailsr  to  EQPLOG  used  ss  s  working  ores  within  screen  routine) 

EHD  STRUCTURE; 

STRUCTURE  CNVRTEQP  LIKE  CKVTKQP 

(this  structure  is  slailsr  to  CNVTBQP  used  as  a  working  area  within  screen  routine] 

EHPSTRUCTURE ; 

STRUCTURE  EQU IP_LO ADL 1ST 

(A  structure  of  pointers,  one  for  each  data  field  on  ecreen  used  by  panel  nanager  for  loading  and 
unloading  data  to  and  froa  screen) 

CROUP  TABLE)  15) 

PTE  RWY  (pointer  for  runway  ID  data  field) 

PTE  EQUIPtCMT  (pointer  for  equipaent  data  field) 

PTE  UTS  (pointer  for  'OUT  OP  SEEV1CE'  tlae  date  field) 

PTE  RTS  (pointer  for  'RETURN  TO  SERVICE'  tine  data  field] 

PTE  REMARKS  (pointer  for  REMARKS  data  field) 

PTE  MSG  (pointer  for  screen  aessage  data  field) 

SITS  PENCE  (32  bit  variable  as  prescribed  by  DMS  aanual.  Initialised  to  string  of  (32)  ’l'B] 
BHDSTEUCTUEE; 


2-229 


ROUTIMB  BLOG 

MOOT  (BQPLOC,  CHVTEQP,  RSTATUS); 

[Till*  routine  Invoke*  equlpacnt  planning  log  screen) 

REPEAT  UlfTlL  (RSTATUS  BE  PP12); 

EQUIP_DATA  -  EQPLOG; 

CNVRTJEQP  -  CHVTEQP; 

CALL  E SCREEN; 

MOOT  (EQUIP_DATA,  CNVRTEQP,  RSTATUS); 

[This  routine  controls  eguipaent  planning  log  screen) 

ENURE PEAT; 

IP  SUBSTR  (EQUIPJJATA.NSG,  I,  12)  Eg  'DATA  ENTERED' 

THEN 

EQPLOG  -  BQUIP_DATA; 

CHVTEQP  -  CNVRT_EQP; 

END  BLOC; 
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ROUTINE  ESCREEN 

INPUT  (EQUIPJIATA,  CNVRTEQP ,  RSTATUS); 

(This  routine  controls  equlpaent  planning  log  screen] 

CNR  PNAME  (character  variable  of  length  8  containing  naan  of  OMS  panel  Initialized  to  ‘RUTLOG 
none  of  panel  that  controle  equlpaent  planning  log  acrean] 

1NT  CURSOR  (integer  variable  containing  curaor’a  poaltlon  on  screen) 

BITS  DH(76)  [8  bit  variable  of  data  mask  used  In  DNS] 

STRUCTURE  AUXDATA  LIKE  EQUIP  DATA 

ENOSTRUCTURE; 

DM  -  FLDDEP;  (aat  data  Banks  to  default  intensity  (normal)] 

DN(76)  •  PLDHIGH;  [set  aeaaaga  data  nask  to  high  Intensity] 

CURSOR  -  61;  (sat  cursor  to  position  61;  first  data  field  uaad  bp  user] 

AUX_DATA  -  EQUIP  DATA; 

PERFORM  SET_nP_SCREEN_POINTERS_(KLOC); 

REPEAT  UNTIL  (RSTATUS  NI  ENTER); 

PERPORM  DISPLAT_PANEL; 

IP  RSTATUS  R£  PA1 
THEM  STOP; 

IP  RSTATUS  NR  ENTER 

THIS  EQUIP  DATA  -  AUX  DATA; 

H3I 

DM  -  FLO  DBF; 

DM(7  6)  -  FLDHIGH; 

CALL  BCHBCK; 
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INPUT  EQUIP_DATA,  CNVRTJEQP,  CURSOR); 

[This  routine  checks  for  errors  occurred  on  screen  ss  s  result  of  sn  erroneous  entry  snd 
returns  vslue  for  cursor  pointing  to  first  dete  field  when  sn  error  hss  occurred,  snd  sn 
approprlste  screen  message  is  Issued  edvlslng  user  with  corrections] 

I£  EQUIP_DATA.MSG  NE  'DATA  ENTERED' 

THEN  DM  (CURSOR)  -  FLDHICH; 

ELSE 


CALL  EVALID; 

INPUT  (EQUIPDATA,  CNVRT_EQP,  CURSOR); 

(This  routine  performs  data  validation  checks  on  screen  entries  end  returns 
value  for  cursor  pointing  to  first  Invalid  data  field.  Also,  so  appropriate 
screen  aesssge  is  Issued  advising  user  with  corrections] 

IP  EQU1PJDATA.MSG  NE  'DATA  ENTERED ' 

THEN  DM(CURSOR)  -  FLDHICH; 

ELSE 


CALL  SUPDATE; 

INPUT  (EQUIPDATA,  CNVRTEQP) ; 

(This  routine  Is  performed  only  when  there  are  no  errors  coamltted  on 
screen,  it  sorts  log  edtries  on  screen  based  on  primarily  OTS  and  then  on 
RTS  tines] 

EQUIP  DATA. NSC-  'DATA  ENTERED  at  'CONCATENATE  GMT; 

AUXDATA  -  EQUIP  DATA 


BNDREPEAT 


END  ESCRBEN; 
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PROCESS  SET_UP_SCREQI_POI  KT*«S_(  ELOC  ) 

[This  process  sets  up  screen  pointers  for  DM5  use) 

LOOP;  [J  -  1  To  15) 

EQUIP_LOADLIST.TMLE(J).m-  ADDS  (  EQUIP__DATA.TABLE(  J  )  .  RtfY  )  ; 
EQUIPLOADLIST. TABLE! J).EQUIPMKKT-ADOI(EQUIP_DATA. TABLE! J). EQUIPMENT); 
EQUIPLOADLIST. TABLE! J).0TS  -  ADOR[ RQUIPUATA . TABLE(J ) . OTS ) ; 
EQUIP_LOADLIST. TABLE! J). ITS  -ADOR  (  KQU I P  DATA.  TABLE  (J).  RTS); 
EQOIPLOADLIST. TABLE! J)  •  UMARKS«ADDR( EQOI P_DATA . T ABLE(  J )  .REMARKS); 
EHDLOOP; 

EQUIPLOADLIST.KSC  -  ADM  (EqOIP_DATA.MSC) ; 

EBD  SET_OP_SC*KEII_POimES_(ELOC); 


l 
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ROUTINE  ECHECK 

INPUT  (EQUIP_DATA,  CNVRT_EQP,  CURSOR) 

(Thie  routine  checks  for  errors  occurred  on  ecreen  es  e  result  of  en  erroneous  entry  end  returne 
velue  for  eureor  pointing  to  first  dete  field  when  en  error  hee  occurred,  end  en  epproprlete  ecreen 
■essege  le  Issued  edvlelng  user  with  corrections) 

ERKl  -  'NUICSIC  INPUT  REQUIRED' ; 

ERR2  -  'NON-NEGATIVE  INPUT  REQUIRED'; 

ERR3  -  'NO  DECIMAL  POINTS  ALLOWED'; 

RWYFRR  -  'VALID  RUNWAY  ID’S  ARE:  *R  4L  9R  9L  UR  UL  22R  22L  27R  27L  32R  32L  ALL'; 

RWYID(l)  -  ' 

RWYID(2)  -  ' 

RWY1D( 3)  -  '  9R'; 

RWYID(A)  -  1  9L'; 

RWY  ID  (  3  )  -  '  UR ' ; 

RWYID(6)  -  '14L' ; 

RWYID(7)  -  '22R'; 

RVYID(g)  -  '22L* ; 

RWYID(9)  -  '27R' ; 

RWYID(IO)  -  '27L'; 

RWYID(U)  -  '32R'  J 
RWYID(12)  -  '32L' ; 

RWYID(13)  -  'ALL'; 

RWYID(U)  -  •  •; 

EQUIP_DATA.MSG  -  'DATA  ENTERED'; 

CURSOR  -  60; 

REPEAT  WHILE  (BQUIP  DATA.MSC  E£  'DATA  ERERED');  [J  -  13  to  IS) 

CURSOR  -  CURSOR  +  1; 

PERFORM  RUNWA  Y_I  DDAT  A_P  I  ELD_tRROR_C  HECK ; 

EXITIF  (error  detected) 

CURSOR  •  CURSOR  +  2; 


2-234 


PERFORM  OTS_TXME_OATA_PIELD_ER»0»_CHECK 
EXITIF  [error  detected] 

CURSOR  -  CURSOR  +  1; 

PERFORM  RTS_TIME_D*TA_FIEU)_ERROR_CHR« 
EIXTXF  (error  detected] 

EMDEEPEAT ; 

END  ECHECK; 
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PROCESS  RUNWAY_ID_DATA_FIELD_ERROR_CHECK; 

[This  process  checks  for  errors  on  runwey  ID  dete  field] 

K  -  INDEX  (EQUIP_0ATA.TABLE(J).BR,  '  •)} 

If  (K  §£  0)  OR  (K  E£  1) 

THEM  C  -  EQUIP_DATA.TABLE(  J)  .RHY; 

ELSEIF  IBJ! 

THEN  C  -  '  ’  CONCATENATE  SUESTR  (EQUIP  DATA. TABLE(J). RHY,  1,  1)  CONCATENATE 
(EQUIP_DATA.TAELE(J).EHY,  3,  1); 

ELSE  C  -  '  ’  CONCATENATE  SUESTR  (EQUIPJMTA.TABLE(J)  .RHY,  1,  2); 

FLAG  -  'O'H; 

REPEAT  WHILE  (FLAG  Eg  '0'R)i  [E  -  1  To  1A] 

IF  RHYID(K)  EJ  C 

THEM  FLAG  -  '!'» 

ENDREPEAT; 

IF  FLAG  -  'O'Ss 

THEN  EQUIP_DATA.KSG  -  RHY  ERR; 

END  RUNUAY  ID  DATA  FIELD  ERROR  CHECK; 


I 


PROCESS  OTS  _T  IKEDATAFI  ELD_ERROR_C  KECK 

[This  process  checks  for  errors  on  OTS  cine  dels  field] 

Cet  STRING  (EQUIP_DATA.TABLE( J  )  .OTS  )EDIT  (CNVRT_EQP.TABLE(J)  .OTS) 
[conversion  froe  character  date  to  numerical  date] 

JUP  VERIFY  EqUlP_DATA.TABLE(J)  .OTS)  Eg  0 

THEN  EqtUPJDATA.MSC  -  ERR2; 

ELSEIF  VERIFY  EQUIP_DATA.TABLE(  J)  .OTS)  Eg  0 

THEN  EQUIPJIATA.HSG  *  ERR3; 

END  OTS_TIME_DATA_FIELD_ERROR_CHECK; 

PROCESS  RK_T1NE_DATA_FIEU)_ERR0R_CHECE 

[This  procees  checks  for  errors  on  RTS  time  data  field] 

Cet  STRING  (EQUIP_DATA.TABLE(J).ETS)  EDIT  (CNVRT_EQP . TAELE ( J )  . RTS ) 
(conversion  from  character  data  to  numerical  data) 

IF  VERIFY  EQOIP_DATA.TABLE(J).RTS)  E£  0 

THEN  EQU IP_DATA. KSG  -  ERR2; 

ELSEIF  VERIFY  EqUIPDATA.TABLE(J) .RTS)  E£  0 

THEN  BQUIPJMTA.MSC  •  ERR3; 

END  RTS  TIME  DATA  FIELD  ERROR  CHECK; 
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ROUTINE  EVALID 

INPUT  ( EQU I P_DATA ,  CNVHT_KQP,  CURSOR); 

[This  routine  performs  data  validation  checks  on  screen  entries  and  returns  value  for  cursor 
pointing  to  first  Invalid  data  field.  Also,  an  appropriate  screen  sassage  Is  issued  advising  user 
with  corrections) 

*FOUR  -  A; 

CURSOR  -  60; 

EQUIPDATA.MSG  -  'DATA  ENTERED'; 

REPEAT  WHILE  (EQUIP_DATA.MSC  Eg  'DATA  ENTERED'  |J  -  13  To  15] 

IP  (EquIP_DATA.TABLE(J).RIrt  Eg  (3)  '  • )  AND 

(EQUIP_JDATA.TABLE(J)  .EQUIPMENT  Bg  (llT"r  ')  AMD 
(BQUIP_DATA.TABLE(J).OTS  Eg  (4)  '  ')  AMD 
(EQUIP  DATA.TABLE(J)  .RTS  EQ  (A)  '  ' )  AMD 
(EQOIP_DATA.TABLE(J).REMAKS  Eg  (39)  T_r) 

THEN  (til  entrlea  are  blank] 

CURSOR  -  CURSOR  +  5; 

CMVRT  EQP.TABLE(J) .OTS  -  9999; 

CNVRTJSQP.TABIE{J).RTS  -  9999; 


ELSE 

CURSOR  -  CURSOR  +  1; 

PERFORM  RICBT_JUSTirT_RHT_DATA_EMTRY; 

IP  (EQUIP_DATA.TABLI(J).EMT  ME  (3)  '  ’)  AMD 

(EQUIP  DATA.TABLE(J)  .EQUIPtCNT  EQ  (11)  ’  ’)  AMD 
(EQUIP- DATA.TABLE(J)  .OTS  Eg  (A)  ’  ')  AMD 
(EqUIP- DATA.TAILE( J)  .RTS  Eg  (A)  '  ')  AMD 
(EQUIP- DATA.TABLE(J) .REMARKS  Eg  (39)  T_r) 

THEM  (encrlea  are  mitt  in*) 

EQUIP  DATA.MSG  -  'ADDITIONAL  INFORMATION  REQUIRED  FOR  THIS  RUMWAY ' ; 
ELSEIF 

(EQUIP  DATA.TAILE(J).RVY  Eg  (3)  •  • )  AND 
( (EQUIF_DATA. TABLE ( J) .EQUIPHJNT  NE  (lTT'  ')  OR 
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I(EQUIP_DATA.TABLE(J).OTS  ME  (A)  '  ' )  OR 

(EQUIP  DATA. TASLE(J). RTS  NE  (A)  '  ')  OR 
(BQUIP~DATA. TABLE  (J).REtfflEkS  NE  (39)“r  ')); 


THEN  (runway  ID  1*  alaalng) 

EQUIPDATA.MSC  •  1  SPECIFY  RUNWAY  ASSOCIATED  WITH  ENTRIES'; 


ELSEIP 

(EQUIP  DATA. TABLB(J) .RUT  NE  (3)  •  '  )  AND 
(EQUIP~DATA.TABLE(J) -EQUIPMENT  EJ  (IlTr“ ' 


THEN 


feguipaaat  typa  Is  iImIiii] 

EQUIPJUTA.MSC  -  'SPECIFY  EQUIPMENT  TYPE  ASSOCIATED  WITH  ENTRIES 


ELSEIF 

(EQUIP  DATA.TABLE(J).RVT  NB(3)'  •)  AND 
(EQUIF_DATA.TASLB(J) .EQUIpBSNT  NEdTP-  •) 

AND  ((EQUIPDATA.TABLE(J).OTS  EQ(A)'  ')  AND 

7Iquip_data.tabije(j).rts  E2(A)~t  ■>) 

THEN  [OTS  and  RTS  tlaea  ara  alaalng] 

EQUIP_DATA.MSC  •  'AN  OTS  AND/OR  RTS  TIME  IS  REQUIRED' 


ELSE 

CURSOR  -  CURSOR  +  1; 


PERFORM  RICHT_JUSTIFY_EQUIPI«NT_DAIA_BMTRY; 
CURSOR  -  CURSOR  ♦  1; 

IF  EQUIP_DATA.  TABLE  (J).  OTS  EjJ(A)  'b* 

THEM  CNVRT_EQP.TARLE(J).OTS  -  2500; 

ELSE 


PERFORM  OTS  TIME  CHECE; 


EXIT If  (arror  datactad) 


PERFORM  LEFT  ZERO  PADDIMC  OH  TUB  ENTRY 


I 

« 
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IP  EQUIP__DATA.NSC  'DATA  ENTERED; 

THEN 

CURSOR  •  CURSOR  +  l; 

IP  EQUIP  DATA.TABLE(J)  .RTS  E£  (A)” 

then  cnvrt.bqp.table(j).rts  -  2SQQ; 
ELSE 


perform  rts_ti«_chkck 

BKITIF  («rror 

IP  EQOIP_DATA.MSC  E^  'DATA 
ENTERED' 

TURNIP 

(EQUIP  DATA. 
TABLE(l).OTS  HE  (A) 

•  ')  AND  (EQUIP 
DATA.TARLE(J).  RTS 
HE  (A)  ")  AND 
(CNVET  EQP.TABLE(J). 
OTS  cf~ CNVRT  EQP. 

tarleTj).rtsT 

THEN  EQUIP_DATA.NSC  - 
‘TIKE  FOR  RTS  MUST  BE 
BLANK  OR  LATER  THAN  OTS'; 

ELSE 

CURSOR  •  CURSOR  +  1; 
PERFORM  LEFT 
JUSTIFY  REMARKS 
DATA  ENTRY; 


ENDREPRAT; 

Jf  >':.Tp_data.msc  - 
THEN  CURSOR 


'DATA  ENTERED' 

-  61; 


END  EVALID; 
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PROCESS  1ICHT_JUSTIPYJWY_DATA_ENTRY 

[This  proceae  rlght-Juatlf lea  runway  ID  entry) 

K  -  INDEX  (EQUIPDATA.TABLE(J).RWY,  *  *); 

IF  K  EJ  2 

THEN 

C  -  •  ■  CONCATENATE  SUBSTR  ( EQUIP_DATA.TABLK(  J)  .MIT,  1,  1)  CONCATENATE  SUBSTR  ( BQUIPDATA. 
TABLE ( J ) . RUY ,  3,  1); 

EQUIP  DATA . TABLE( J ) . BUY  -  SUBSTR  (C,  1,  3); 

IF  K  Eg  3 
THEN 

C  -  •  •  CONCATENATE  SUBSTI  (EQUIP_DATA.TABLE(J)  .BUT,  1 ,2,  )  ,EQUIP_DATA.TABLE(J)  .RWY  -  SUBSTB 
(C.  I.  3)! 

END  BICHT_JUSTIFY_HIYJ>ATA_ENTBY; 

PROCESS  RICHT_JU  ST  IF  Y__EQU  I  PieHT_DATA_ENTRY 

[Thla  proceaa  rlght-Juatlf lea  equipment  type  entry) 

K  -  0; 

FLAG  -  'O'Bj 

REPEAT  WHILE  (FLA C  EQ  'O'B)  REPEAT  UNTIL  (R  BQ  11): 

K  -  R  +  l; 

IF  SUBSTR  (EQUIP_DATA.TA1LE(J)  .EQUIPMENT,  R.  1)  NR  '  • 

THEN  FLAC  -  'l'B; 

ENDREPEAT; 

C  -  SUBSTR  (EQUIP_OATA.TABLE(J) .EQUIPMENT,  K,  12  -  E);  EQUIP_DATA.TABLE(J)  .EQUIPMENT  •  SUBSTR  (C,  1,  11) 
END  RIGHT_JUSTIFY_EQUIPNINT_DATA_ENTIT[ 
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PROCESS  OTS  TIME  CHECK 

[This  process  checks  for  validity  of  OTS  tlaa  entry) 

HOUR  -  FLOOR  (PLOAT(CNVRT_EQP.TABLE(J) ,OTS)/100.0); 

I£  HOUR  CT  23 

THEM  EQU IP_DATA . MSC  -  'HOUR  MUST  HOT  EXCEED  23* i 

ELSE  MIN  -  CNVRTBQP.  TABLE  (J).  01  -  HOUR  *  100; 

MIN  CT  59 

THEM  EQUIP JtATA.MSC  -  'MINUTES  MUST  NOT  EXCEED  59* 

END  OTS  TIME  CHECK; 


PROCESS  LEFT  ZERO  PADDIMC  ON  OTS  TIMKJWTRY ; 

(This  process  pads  OTS‘~tlse  sotry  with  leading  teroes) 

C  -  P(PLOAT(CNVRT_EQP.TABLE(J).OTS)p  3 FOUR); 

K  -  0; 

PILL  -  '; 

PLAC  -'O'B; 

REPEAT  WHILE  (FLAC  EQ  'O'B)  REPEAT  UNTIL  (E  Eg  A); 

K  -  K  +  1; 

IP  SUBSTR  (C,  K,  1)  Eg  '  ' 

THEN  PILL  -  PILL  CONCATENATE  'O’; 

ELSE  PLAC  - 


ENDREPEAT; 

EQUIP_DATA.TABLE(J).OTS  -  PILL  CONCATENATE  SUBSTR  (C,  E,  5-K); 
END  LEFT  ZEBO_PADDINC_ON_OTS_TII«_ENTRY ; 
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PROCESS  ETS_TIME_CHECE 

(This  proceta  checks  validity  of  ITS  t lac  entry) 

HOUR  -  FLOOR ( FLOAT ( CNVBT JEQP .TABLE) J ) . RTS ) / 100 . 0) ; 
nr  HOUR  CT  23 

THEM  EQU IP_DATA . HSG  -  'HOUR  MUST  NOT  EXCEED  23'; 

ELSE 

MIN  -  CNVRTEQP. TABLE) J). NTS  -  HOUR  *  100; 

IF  MIN  CT  59 

THEN  EQUIFJUTA.MSC  -  'MINUTES  MUST  NOT  EXCEED  59' 
END  RTSTIMEJCHECE; 

PROCESS  L  E  rTZE RO  P  ADO  I NGONITST  IMEEMTRT 

(Tills  process  peds  RTS  ties  entry  with  leading  seroesj 

C  -  P  (  FLOAT)  CNVRT_EQP.T  ABLE)  J).  RTS),  I  FOUR); 

E  -  0; 

FILL  -  *; 

FLAG  -  'O'B; 

REPEAT  WHILE  ) FLAG  'O'B)  REPEAT  UNTIL  )E  Eg  A); 

E  -  E  ♦  1; 

IF  SUBSTR  )C,  K,  1)  EQ  '  • 

THEN  FILL  -  TILL  CONCATENATE  'O'; 

ELSE  FLAG  -  'l’l; 

EHDEEPEAT; 

EQOIP  DATA. TABLE) J)  .RTS  -  FILL  CONCATENATE  SUBSTR  )C,  E,  5-E) 
END  LEFT_ZERO_PADDING_ON_OTS_T  IME_ENTRT ; 
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PROCESS  LEFT_JUSTIFY_RBMARKS_DATA_ENTRY 

[This  process  let  trustifies  reasrks  entry) 

K  -  0; 

FLAG  -  'O’R; 

REPEAT  WHILE  (FLAG  Eg  'O'R)  REPEAT  UNTIL  (E  Eg  27); 

R  -  R  +  1; 

If  SUBSTR(SURF_OATA.TABLK(.I). REMARKS,  K,  1)  ME  '  ' 

THEM  FLAC  -  'l'B; 

EHPKBPEAT; 

C  -  SUBSTR(SURF_DATA.TARLE<J)  .REMARKS,  K,  2B  -  K);  SURF_DATA.TABLE(J). REMARKS  -  SU»STR(C, 
END  LEFT  JUSTIFY  REMARKS  DATA  ENTRY; 


> 


.  27) 
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SOUTINE  E UPDATE 

INPUT  (EQUIPDATA,  CNVtTEQP) 

[Thla  roue 1m  la  parforaad  only  whan  thara  ara  do  arrora  coaalttad  oo  acraan,  It  aorta  log  eotrlaa 
oo  acrcco  baaad  oo  tiaa] 

LOOP;  |J  -  13  To  14) 

L  -  J; 


tEPEAT  WHILE  (L  CT  12); 

IP  (CNVKT  EQP.TABLE!L+l).OTS  LT  CKIT  EQP.TABLE<L)  .OTS) 

Ot  !7cllVSr_EQP.TABLE!L+l7TOTS  CNVtT_SQP.  TABLE!  L).  OTS)  AM  !CNVET_BQP.TAlLS(L+l).tTS 
LT  CMVtT_BQP.TABLS!L).ETS) 


THEN 

TEMPI  -  EQUIP  DATA.  TAALl(L)  .  RVT ; 

TEW  2  -  EQUIP- DATA, TABLE(L). EQUIPMENT; 

TEMPI  -  EQUIP- DATA, TAELE(L). OTS; 

TEW  A  -  IQUIP_DATA.TAELE(L).ETS; 

TEMP3  -  EQUIP- DATA.TABLE!L).BEMABES; 

CTBMP1  -  C WnS  BQP.TAILE(L) .OTS ;  - - - 

CTEMP2  -  CMVBTEQP.  TABLE!  L).  ETS; 

EQUIP  DATA.TAELE(L) .BUT  -  DATA. TABLE! LAI). BUT; 
EQUIinDATA.TABLE(L)  .EQU1FWNT  -  EQUIP  DMA.  TABLE! L+l )  .EquIPKNT; 
Equip  DATA. TABLE!L). OTS  -  EQUIP  DATA. TAILS! L+l). OTS; 

EQUIP- DATA.  TABLE!  L).  BIS  -  EQUIP  DAT  A.  TABLE!  L+l)  .ETS; 

EQU I  P^ATA.  TAILS!  L).  SEMAKS  -  SQHP_DAIA.TABLE!L+1). SEMAKS; 
CNVtTEQP. TABLE! L).  OTS  -  CNVBT  EQP.  TABLE!  L+l)  .OTS; 

CUVET  EQP. TABLE! L). ITS  -  CNVtT  EQP . TABLE! L+l ) . ITS ; 

EQUIP- DATA.TABLE!L+1)  .EWT  •  TBfl; 

EQUIP- DAT  A.  TABLE!  L+l)  .EQUIPMENT  .  TEMPI; 

EQUIP- DATA. TABLE! L+l)  ,0TB  -  TEMPI; 

EQUIP_DAIA.TAKE!L+1).BTS  -  TEMPI ; 

EQ01P_DATA.TABLE!L+1)  .BEMABKS  •  TEMPS; 

CNVBT  EQP. TABLE! L+l). OTS  -  CTEMP1; 

CNVET_BQP. TABLE! L+l). ETS  -  C TEMP 2; 

L  -  L--  1; 


ELSE  L  -  12; 

EMEEPEAT; 


I 


2.8  Demand  Planning  Log  Screen 

The  processing  for  the  Demand  Planning  Log  Screen  is  described 
on  pages  2-246  to  2-263. 
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[‘“LOCAL  VARIABLES*** J 

STRUCTURE  OAG  DATA  LIKE  OAGLOC 

[Thla  structure  la  similar  to  OAGLOC  used  as  a  working  ares  within  screen  routine) 

EHDSTRUCTURE ; 

STRUCTURE  CNVRTOAC  LIKE  vdVTOAG 

[This  structure  la  similar  to  CNVTOAG  used  as  a  working  area  within  acreen  routine) 

EHDSTRUCTURE ; 

STRUCTURE  OAG_LOADLIST  [a  structure  of  pointers,  one  for  each  data  field  on  acreen  used  by  panel  aanager 
for  loading  and  unloading  data  to  and  from  screen] 

PTR  INITIAL  [pointer  for  initial  data  field) 

PTR  SCROLL  [pointer  for  scroll  data  field) 

CROUP  TARLR(A) 

PTR  GMT  [pointer  for  GMT  data  field) 

PTR  TTLARR  [pointer  for  total  arrival  demand  data  field) 

PTR  TTLDEP  (pointer  for  total  departure  demand  date  field) 

PTR  KUBIS  [pointer  for  KUBBS  arrival  demand  data  field) 

PTR  CCT  (pointer  for  CCT  arrival  demand  data  field 
PTR  VAINS  [pointer  for  VA1NS  arrival  demand  data  field 
PTR  FARM!  (pointer  for  FARM*  arrival  demand  data  field) 
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PTE  NORTH  [pointer  for  NORTH  departure  demand  data  field) 

PTR  EAST  [pointer  for  EAST  departure  demand  data  field) 

PTR  SOUTH  [pointer  for  SOUTH  departure  demand  data  field] 

PTR  VEST  [pointer  for  WEST  departure  demand  data  field] 

PTR  NSC  (pointer  for  the  screen  message  data  field 

BITS  FENCE  [32  bit  variable  as  prescribed  for  DMS  manual.  Initialised  to  string  of  (32)  *1’B] 
ENDSTRUCTURE; 
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ROUTINE  CLOG 

IN  (OAGDEM); 

INPUT  (OAGLOG,  CNVTOAG,  R STATUS) ; 

(This  routine  invokes  densnd  plsnnlng  log  screen] 

REPEAT  UNTIL  (RSTATUS  NE  PP12); 

OACDATA  -  OAGLOG; 

CNVRTOAG  -  CNVTOAG; 

CALL  GSCMEBN; 

IN  (OAGDEM); 

INPUT  (OAG_DATA,  CNVRTJBAG,  RSTATUS); 

(This  routine  controls  deasnd  plsnnlng  log  screen] 

ENOREPEAT; 

IP  SU8STR  (OAGDATA.MSC,  1,  12)  EJ  'DATA  ENTERED’ 

THEN 

OAGLOG  -  OAG  DATA; 

CNVTOAG  -  CNVRT  OAG; 

END  CLOC; 
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ROUT I WE  G SCREEN 
IK  (OAGDEM) ; 

INPUT  (OAGJDATA,  CNVRTjOAG,  RSTATUS ) ; 

[This  routine  controls  demand  planning  log  screen} 

CHR  PKAME  [character  variable  of  length  8  containing  the  name  of  DMS  panel  Initialised  to 
'DMNDLOG',  the  name  of  the  panel  that  controls  demand  planning  log  screen] 

IWT  CURSOR  [Integer  variable  containing  the  cursor's  position  on  the  screeo] 

BITS  DM(47'  18  bit  variable  of  data  mask  used  In  DMS] 

STRUCTURE  AUX_DATA  LIKE  QAGJJATA 

RESTRUCTURE; 

DM  -  FLDDEP  [set  data  masks  to  default  intensity  (normal)) 


DH(47)  *  PL MICH;  [set  the  message  data  mask  to  high  intensity J 

CURSOR  -  2;  [set  cursor  to  position  2;  second  data  field  used  by  user] 

AUX_DATA  -  QAGJJATA; 

OAGJJATA.  INITIAL  -  (2)' 

O AG J> AT A. SCROLL  -  (2)'  '; 

CNVRTOAG. SCROLL  -  0; 

OAGJOADL 1ST. INITIAL  -  ADDR(OAGJ)ATA. INITIAL) ;  [set  up  pointer  for  Initial  data  field) 
OAGJXJADL 1ST. SCROLL  -  ADDR(0AG_DATA. SCROLL) ;  [set  up  pointer  for  scroll  data  field) 
OAC__LOADLIST.MSG  -  ADDR(0AG_DATA. MSG ) ;  [set  up  pointer  for  mesaage  data  field) 

Get  STRING  (GMT)  EDIT  (G)  (convert  the  current  time  from  character  to  numeric) 

REPEAT  UNTIL  (RSTATUS  ME  ENTER); 

INDEX  -  FLOOR  (M0D( FLOAT (CNVRTJJAC. SCROLL  +  INDEX),  24.0)); 

(compute  current  hour) 

LOOP;  [L  -  l  To  4J 

[set  up  screen  pointers  for  four  hours  starting  with  current  hour) 


l 
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UR  -  FLOOI(MOD(FLOAT( INDEX  ♦  L  -  1),  24.0)) 

0AC_L0ADL[ST.TABL£(L)  .GHT  •  A0M(0AC_DAtA.TABLE(HR)  .GMT) ; 
OAG_LOADLIST.TABLE(L)  .TTLAAR  -  AD0R(0AC  DATA.  TABLE  (HI)  .TTLARR)  ; 
0AC_L0ADL1ST .TABLE(L >  .TTLOEP  -  ADOt(OAG~~ DATA.TABLE(HR)  .TTLOEP) ; 
OAC_LOAOLIST.TABLE(L>.KUB1S  -  A0DI(0AGJ5aTA.  TABLE  (HI).  KU  BBS); 
OAC_LOADLIST.TABLS(L).CCT  -  ADM( OAC_DATA . TABLE(HR) . CGT) ; 
OAGJLOADLIST.TABLE(L)  .VA1MS  -  ADOR(OAG_JDATA.TABLE(UR)  .VA1HS); 
OACLOADL 1ST . TABLE ( L )  . FAUW  -  ADOI(OAC_DATA.TABLE(HI)  .FAEfM)  ; 
OAG_LOADLIST.TABLE(L)  .NORTH  •  ADDI(QAC_BATA.  TABLE  (HR)  .NORTH) ; 
uAC_LOADLIST . TABLE( L ) . EAST  -  AW)B( OAC_DATA .TABLE (HR) .EAST) ; 
OAC_LOADLIST.TABLE(L)  .SOUTH  -  AM*(OAC_DATA.TABLE(HI)  . SOUTH); 
OAG_LOADLIST.TABLE(L)  .WEST  -  ADM(OAG_DATA.TABLE<HI)  .WEST); 

EHDLOOP; 


PERFORM  DZSPUtrPAMtL; 

IF  RSTATUS  PA1 
THEN  stop; 

IP  RSTATUS  NE  ENTER 

THEN  OAGDATA  -  AUXDATA; 

ELSE 

DM  -  FLDDEP; 

DM (4 7)  -  PLDHICH; 

CALL  GCHECK; 

IH  (OAGDEM,  INDEX) 

INPUT  (OACDATA,  CNVRT  PAG  CU1S0R); 

(This  routine  checks  for  errors  occurred  on  screen  as  s  result  of  sn  erroneous  entry 
snd  returns  value  for  the  cursor  pointing  to  first  date  field  vbere  an  error  has 
occurred,  snd  sn  appropriate  screen  message  Is  Issued  advising  user  with  corrections] 

IP  PAG  DATA. MSG  NE  'DATA  ENTERED' 


THEN 

DM( CURSOR)  -  PLDHICH; 
CNVRT_0AG. SCROLL  -  0; 
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I  ELSE 

CALL  CVALID; 

IN  (INDEX); 

INPUT  (OAGJJATA,  CNVRTOAG,  CURSOR); 

[This  routine  perforas  data  validation  checka  on  acreen  entrlea  and 
returns  value  for  curaor  pointing  to  flrat  Invalid  data  field.  Also, 
an  appropriate  screen  aessage  la  Issued  advising  user  with 
corrections} 

IF  OAC_DATA.MSG  NE  'DATA  ENTERED' 

THEN 

DM (CURSOR)  -  FLDHIGH; 

CNVRT_OAG. SCROLL  -  0; 

ELSE 

OAG  DATA. SCROLL  -  (2) • 

OAG  DATA. MSG  -  'DATA  ENTERED  AT'  CONCATENATE  GMT; 

AUXJJATA  -  OAGDATA; 

ENDREFEAT; 


END  GSCREEN; 
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ROUTINE  0  CHECK 

IN  (OACDD4,  INDEX) 

INPUT  (OAGDATA,  CNVgTOAG,  CURSOR)! 

[This  routine  checks  for  errors  occurred  on  ecreen  ee  a  result  of  an  erroneous  entry  and  returna 
value  for  cursor  pointing  to  first  data  field  uhere  an  error  has  occurred,  and  an  appropriate 
screen  aessage  la  Issued  advising  user  with  corrections) 

ERR1  -  'NUMERIC  INPUT  REQUIRED1; 

ERR2  -  ‘NON-NEGATIVE  INPUT  REQUIRED'; 

ERR3  -  'NO  DECIMAL  POINTS  ALLOWED' ; 

ERR5  -  'INPUT  MUST  BE  X  OR  BLANK'; 

OACDATA.MSC  -  'DATA  ENTERED'; 

CURSOR  -  1; 

ON  CONVERSION  BECIN;  (ON  CONVERSION  Is  a  PL/t  feature  that  la  Invoked  If  a  character  data  la 
detected  in  a  nuaerlcal  data  field) 

OAC  DATA.MSC  -  ERR1; 

RETURN; 

IF  KOAG  DATA. INITIAL)  NE  0 
THEM  OAC  DATA.MSC  •  ERRS; 

ELSE 


IP  OAGJMTA. INITIAL  NE  (2)'  • 

THEN 

OACJDATA  -  OAGDEM .  BY  NAME; 

OAC  DATA. INITIAL  -  (2)'  ' 

OACHttTA. SCROLL  •  (4)'  ' 

CURSOR  -  2; 

PERFORM  SCROLL_DATA_FIKLD  ERRORjCHECK; 
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EXITIF  (error  detected) 

REPEAT  WHILE  (OAGJtATA.MSC  E^  'DATA  ENTERED' );  (L  •  0  to  3) 
US  *  INDEX  +  Lj 

IF  HR  GT  23 

THEM  HR  -  HR  -  2A; 

CURSOR  -  CURSOR  +  2; 

PERFORM  TTLARR_DATA_PIELD_ERROR_CHECK; 

EXITIF  (error  detected) 

CURSOR  -  CURSOR  4-  1; 

PERFORM  TTLDEP_DATA_rlEU>_ERROR_CHECK[ 
EXITIF  (error  detected] 

PERFORM  KUBSS_DATA_FIELD_KRROR_CHECK; 

EXITIF  (error  detected) 

CURSOR  -  CURSOR  +  l; 

PERFORM  CGT_DATA_F  I  ELD_ERRO«_CHECX ; 

EXITIF  [error  detected) 

PERFORM  VAINS_DATA_PIEU>_ERROR_CHECK; 

EXITIF  [error  detected) 

CURSOR  -  CURSOR  +  1; 

PERFORM  PARW_DATA_FIELD_EHROR_CHECE; 

CURSOR  -  CURSOR  4  l; 


EEIT1F  [error  detected] 
CURSOR  -  CURSOR  +  1; 


PERFORM  EAST_0ATA_FIELD_ERROR_CHECE ; 
E1ITIF  (error  detected) 

CURSOR  -  CURSOR  +  1; 

PERFORM  SOUTH_DATA_PIELD_ERROR_CHECE 
EEITIF  [error  detected) 

CURSOR  -  CURSOR  +  1; 

PERFORM  HEST_DAT  A_P  IELD_ERROR_CHECK ; 
EXITIF  [error  detected) 

EMDREPEAT  ; 

END  GCHECK; 

PROCESS  SCROLL_DATA_FIELD_ERROR_CHECE 

|Thls  proceee  checks  Cor  errors  on  scroll  dete  field) 

Get  STRING  (OACDATA. SCROLL)  EDIT  (CMVRTJIAG.  SCROLL); 

IP  VERIFY  OAC_DATA. SCROLL)  E£  0 

THEM  OAG  DATA. MSG  -  ERRS; 

END  SCROLL  DATA  FIELD  ERROR  CHECK; 
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PROCESS  TTLDEP_DATA_FIELD__ERROR_CHECK 

[This  process  check*  for  error*  on  tot*l  departure  deaand  data  field) 

Get  STRING  (aAC_DATA.TABLE(HR).TTLDEP)  EDIT  (CNVRT_OAC.TARLE(HR).TTLDEP); 

IT  VERIFY  OAG_DATA.TABLE(HR)  .TTLDEP)  E£  0 

THEM  OAG_DATA . MSG  -  ERR2j 

ELSEIF  VERIFY  OAC_DATA.TABLE(HR)  .TTLDEP) 

THEN  OAGDATA.HSG  -  ERR3; 

END  TTLDEP_DATA_FIELD_ERROR_CHECK; 

PROCESS  TTLARRDATAFIELDERRORCHECK 

(This  process  check*  for  error*  on  total  arrival  deaand  data  field] 

Get  STRING  (OAC_DATA.  TABLE  (HR)  .TTLARR)  EDIT  (CNVRTOAC.TABLE(HR)  .TTLARR) ; 

IF  VERIFY  OAG_DATA.  TABLE  (HR)  .TTLARR)  B£  0 

THEN  OAG  DATA.HSG  -  ERR2; 

ELSEIF  VERIFY  OAGDAT A. TABLE (HR) .TTLARR)  B£  0 

THEN  OAC  DATA.MSC  -  ERB3  j 
END  TTLARR  DATA  FIELD  ERROR  CHECK; 


2-256 


PROCESS  KUBSS_OATA_FIELD_£RROR_CHECK 

(This  process  checks  for  errors  on  KUBBS  dots  field] 

Cec  STRING  ( OAC_DATA . TABLE( HR ) . KUBBS )  EDIT  ( CNVRTJOAG . T ABLE( HR ) . KUBBS ) 
IF  VERIFY  OAC_OATA. TABLE (HR).  HJBBS)  Eg  0 

THEM  OAC_DATA.HSG  -  BRR2; 

ELSEIF  VERIFY  OACDATA. TABLE (HI). KUBBS)  Eg  0 

THEM  OAG_DATA.MSC  -  ERR3; 

END  KUBBS JMTAFIELDEKRORCHECK; 

PROCESS  CCT_DATA_FIELD_ERROR_CHECK 

(This  process  checks  for  errors  on  CGT  decs  field) 

Cec  STRING  ( OAGDATA . TABLE( HI ) . CCT)  EDIT  (CHVRT_QAC.TABLE(HR).CCT); 

IF  VERIFY  <  .  OAG  DATA.TABLE(HR)  .OCT)  Eg  0 

THEM  OACDATA.KSC  -  ERR2 ; 

ELSEIF  VERIFY  OACDATA.TABLE(HR) .CCT)  Eg  0 

THEM  OAGJJATA.NSC  -  BRR3; 

END  CCT  DATA  FIELD  ERROR  CHECK; 


PROCESS  VAINS_DATA_PIELD  ERRORCHECK 

[This  procsss  checks  Tor  errors  oa  VAINS  decs  field) 

Get  STRING  <OAC_DATA.TABLE(HR)  .VAINS)  EDIT  (CNVRTOAC. TAB  LE<  HR)  .VAINS) 
IF  VERIFY  OAG_DATA.TABLE(HR)  .VAINS)  E£  0 

THEN  QAG_DATA,KSG  -  ERR2  ; 

ELSEIF  VERIFY  ('-'.  OAC  DATA . TABLE ( HR) . VAINS)  B£  0 
THEN  OAG  DATA.NSC  -  ERR3; 

END  VAINS_DATA_FIELD_ERR0R_CHECK; 

PROCESS  FARMtDATAFIELDERSORCHECK 

[This  process  checks  for  errors  oa  FAIMH  data  field  I 

Get  STRING  (OAG_DATA. TABLE! HR) .FARMO  EDIT  ( CNVRT_QAC .TABLE (HR) . FARIM ) 
IF  VERIFY  (  • .  •  ,  OACDATA.  TABLE  (HR)  .FARM*)  E£  0 
THEM  OACDATA.NSG  -  ERR2; 

ELSEIF  VERIFY  OAG_DAT A . TABLE ( HR )  . FARM! )  E£  0 

THEN  OACDATA . MSG  »  ERR3; 

END  FARM!  DATA  FIELD  ERROR  CHECK; 
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PROCESS  NORTH  DATA  FIELD  ERROtjCHECX 

(This  process  cKecks  Tor  errors  oa  NORTH  dote  field) 

Cee  STRING  (OAGDATA.TABLE(HR). NORTH)  EDIT  ( CNVRT__OAG .TABLE(HR) .NORTH) 
IF  VERIFY  OAG_DATA .TARLE(HR) . NORTH)  E£  0 

THEN  OAGDATA.MSG  -  EEE2; 

ELSKIF  VERIFY  (  ,  OACJDATA.  TABLE  (HR).  NORTH)  E£  0 

THEN  OAG  DATA.MSG  -  ERE3; 

END  NORTH  DATAFIBLDERRORCHECE; 

PROCESS  EAST  DATA_FIEU>_EBBOR_CHECK 

(This  process  checks  for  errors  oa  EAST  data  field] 

Get  STRING  (OAC  DATA. TAELE(HR). EAST)  EDIT  (CNVtT  OAC.TABLB(HR).EAST) 

IF  VERIFY  OAC  OATA.TABLE(Hl) .EAST)  IQ  0 

THEN  OAC_DATA.MSC  -  ERE2; 

EL8EIF  VERIFY  (•-*,  OAGJ1ATA.  TABLE  (HR).  EAST)  E£  0 
THEN  OAG  DATA.MSG  •  ERR 3 ; 

END  EAST  DATA  FIELD_ERROR_CHSCE; 


PEOCBSS  SOUTH  DATAPIELD  ERROt_CHECK 

(Tills  procsss  checks  Tor  errors  on  SOUTH  dsts  field) 

Get  STRING  (OACDATA.TAELE(HR)  .SOUTH)  EDIT  ( CNVRT_OAG . TAILE(HR)  . SOUTH) 
IF  VERIFY  OACDATA.TAJLE(HR). SOUTH)  E£  0 

THEM  OAG  DATA.NSC  -  ERR2 ; 

ELSE  IF  VERIFY  (  ,  OAC__DATA. TABLE  (HR)  .SOUTH)  E£  0 

THEM  OAG  DATA.MSC  -  ERR3; 

END  SOUTH  DATA  FIELD  ERtOR  CHECK; 

PROCESS  WEST  DATA__FIELD_ER*OR_CHECE 

(This  process  checks  for  errors  on  WEST  data  field) 

Get  STRING  (  OAC_DATA .  TABLE  (HR  )  .WEST)  EDIT  (CMVITQAG.  TAB  LB(Hg)  .VEST) 

IF  VERIFY  OAGDATA . TABLE ( HE ) . WES T )  Eg  0 

THEM  OAGDATA.NSG  -  EER2  j 

ELSE IT  VERIFY  (’-', 


OAG  DATA .  TABLE  (  HR ) .  WEST  )  E£  0 
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ROUTINE  C VALID 
IN  (INDEX); 

INPUT  (OAC_DATA,  CNVRTOAG,  CURSOR); 

[This  routine  performs  Seta  validation  checks  on  screen  entries  and  returns  value  for  cursor 
pointing  to  first  Invalid  data  field.  Also,  an  appropriate  screen  message  is  Issued  advising  user 
with  corrections] 

(THREE  -  ); 

CURSOR  -  2; 

OAG  DaTA.KSC  -  'DATA  ENTERED'; 

DUNDEE R  -  'NUMBER  OF  AIRCRAFT  MUST  NOT  EXCEED  99'; 

TTLERR  -  'TOTAL  DOES  NOT  EQUAL  SUM  OF  INDIVIDUAL  ENTRIES'; 

EEPEAT  WHILE  (0ACDATA.K8C  E£  'DATA  ENTERED';  (L  -  0  To  31 
(check  for  demand  values  greeter  than  99] 

HR  -  INDEX  +  L 

IF  HI  CT  23 

THEN  HR  -  HR  -  24; 

SUM  -  0.0; 

CURSOR  -  CURSOR  +  4; 

IF  CMVRTjQAG.TABLE(HR).EUBBS  CT  99.0 
THEN  OAG  DATA.KSC  -  D WHERE; 

ELSE 

OAGJMTA .  TABLE  (  HR  ) .  EURRS  -  SUBSTR(F(CNVRT  DAC. TABLE (HR).  I  USES,  (THREE)  ,1,3) ; 

SUM  -  SUM  +  OONVETJDAG.  TABLE  (HR)  .EUEBS;  ~ 

CURSOR  -  CURSOR  +  1; 

IF  CNVRT  OAC.TABLE(BR).CGT  CT  99.0 
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THEN 

ELSE 


OAG  DATA. MSG  -  DUNDEE*; 


OAG  DATA.TABLE(H*).CGT  -  SUBSTE<F(CNV*T_OAG.TABLE(H*).CCT,  ITHKEE) ,X ,3) ; 
SUM--  SUM  +  CNVRT_OAG.  TABLE  (HR)  .CCT; 

CURSOR  -  CORSOR  +  1; 

IP  CHVRTJQAC.TABLE(HR)  .VAINS  GT  99.0 
THEM  OAG  DATA. MSG  -  DUNDEE R; 


OAG  DATA. TABLE( HR). VAINS  -  SUBSTR(F(CMV*T_OAG.TABLB(HR).VAINS, 

tTBREE),l,3); 

SUM  -  SUM  +  CNWRT_OAC.TABLE{HR)  .VAINS; 

CURSOR  -  CURSOR  ♦  I; 

IT  CNVSTOAG.  TABLE  (HR).  PARMM  GT  99.0 
THEM  OACDATA.MSG  -  DMMDERR; 


OAG  DATA. TARLE(HR) .FARM!  -  SUBST»(F(CNVtT_OAC.TA*L*(HR). 
FAAMTHR8E),1.3); 

SUM  -  SUM  +  CMVRTJ>AC.TABLE(HR)  .FARKM; 

CURSOR  -  CURSOR  -~5; 

IF  FLOO»(CMV*T_OAG.TABLB(HR).TTLA*R)  ME  SM 

[check  total  against  bub  of  Individual  deaand  values] 

THEM  OAG  DATA.MSC  -  ERRS; 


ELSE 

OAG  DEM.TABLE(HR)  .TTLARR  -  SU1STR(F(CMVRT_QAC. 
TABLE(HR)  .TTLARR,  <TK*EE),1,3); 

SUM  -  0.0; 

CURSOR  -  CURSOR  +  6; 

IF  CNVRT  OAG. TABLE(HR). NORTH  GT  99.0 


THEM  0 AG_D AT A .  MSG  -  DMNDERR; 

ELSE 

OAG_DATA.  TABLE  (HR)  .NORTH  -SUBSTR(F(CNVRT 

OAC.TABLE(HR)  .  NORTH,  *THREE)  ,1 ,3)i 

SUM  -  SUM  +  CMVRTOAC .  TABLE  (  HR  )  .  NORTH : 

CURSOR  -  CURSOR  +  1; 

IF  CNVRT_QAG. TABLE (HR)  .EAST  CT  99.0 

THEM  OACDATA.MSC  -  OMNDERR; 

ELSE 

OAG  DATA. TABLE(HR) .EAST 

-SUBSTR(  F  (CMVRTOAC .  TABLE  (  HR) .  EAST  , 

*THR£E),1(3); 

SUM  -  SUM  +  CHVRT 
OAC. TABLE (HR). EAST; 

CURSOR  -  CURSOR  +  1; 

IF  CMVRT  OAC. TABLE( HR). SOUTH  CT 
99.0  ~ 

THEM  OAC  DATA.MSC  •  OMNDERR; 
ELSE 

OAC_DATA.  TABLE  (HE)  .SOUTH 
•  SUBSTR(F( CHVRT  OAC. 
TABLE(BR)  .SOUTH.ItHREE)  ,1. 
3); 

SUM  -  SUM  -f  CHVRT 
QAG.TABLE(HR)  .SOUTH; 
CURSOR  -  CURSOR  +  I; 

If  CHVET_OAC.  TABLE  (HR). 
*ST  CT  99.0 

THEH  OACDATA.MSC 

-  HMDERR; 
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ELSE 


OACDATA. TABLE 
(HR). WEST  - 
SUBSTR(F(CNVRT 
OAG.  TABLE 
(HR). WEST. 
$THREE) ,1 ,3); 
CURSOR  - 
CURSOR  -  8; 

IF 

FLOOR (CMVRT_ 

OAG. TABLE (HR). TT 
LOEP)  ME  SUM 
THEM  OAG 
DATA. MSG 
-  TTLERR; 
ELSE 
CURSOR- 
CURSOR+8; 
OAG 

DAT/ ,TABLE( 
HR) .TTLDBP 

a 

SUBSTR(F(CM 

VRT 

OAG. TABLE (H 
R) .TTLDEP, $ 
THREE) ,1 ,3) 


ENDREPEAT; 

IF  OACDATA.MSC  'DATA  ENTERED' 
THEN  CURSOR  -  2; 

END  CVALID; 
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[***LOCAL  VARIABLES***] 


STRUCTURE  ARPT_DATA( 2)  LIKE  APT ST AT 

[This  structure  Is  similar  to  APTSTAT  used  as  a  working  area  within  the  screen  routine] 

ENDSTRUCTURE ; 

STRUCTURE  CNVRT_APT(2)  LIKE  CNVTAPT 

(This  structure  Is  similar  to  CNVTAPT  used  as  a  working  area  within  the  screen  routine] 

ENDSTRUCTURE; 

CHAR  HIDDATA(2)  [this  variable  Is  similar  to  MIDFLAC  used  as  a  working  area  within  the  screen  routine] 

I NT  SWITCH(2)  [this  variable  la  used  for  switching  between  current  and  forecast  screens.  Initialised  to 

(2,  1)] 

STRUCTURE  AIRPORT__LOADLXST  [a  structure  of  pointers,  one  for  each  data  field  on  the  screen  used  by  panel 
manager  for  loading  and  unloading  to  and  from  screen] 

PTR  TIME  [pointer  for  environment  data  field] 

CROUP  VX 

PTR  CEIL  [pointer  for  ceiling  data  field] 

PTR  VIS  (pointer  for  visibility  data  field) 

CROUP  WIND 

PTR  Dll  [pointer  for  wind  direction  data  field) 

PTR  VEL  [pointer  for  wind  velocity  data  field] 

PTR  MIDWAY  (pointer  for  MIDWAY  data  field] 
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CROUP  RUNWAY ( 12 ) 


CROUP  TOWER 


PTE  ARK  (painter  for  tower  inpoaed  arrival  runway  cloaurea  data  field] 

PTR  DEP  (pointer  for  tower  iapoaed  departure  runway  cloaurea  data  field] 

PTR  SURE  (pointer  for  aurface  conditlona  data  field) 

PTR  BRK  (pointer  for  braking  condition  data  field) 

PTR  RVR  (pointer  for  RVR  reading  data  field) 

PTR  DIR  (pointer  for  runway  wind  direction  data  field) 

PTR  VEL  (pointer  for  runway  wind  velocity  data  field) 

PTR  CESS  (pointer  for  croaawlnd  component  data  field) 

PTR  TAIL  [pointer  for  tailwind  coaponent  data  field) 

PTR  CEIL  (pointer  for  celling  ainlaa  data  field] 

PTR  VIS  [pointer  for  vlalblllty  ainlaa  data  field) 

CROUP  CLOSED 

PTR  ARR  [pointer  for  arrival  runway  doeura  data  fluid] 

PTR  DEP  (pointer  for  departure  runway  clonure  data  field) 

PTR  MSG  [pointer  for  acreen  aaaaage  data  field) 

BITS  PENCE  (32  bit  variable  aa  preecrlbed  by  DMS  annual,  lnltlallaed  to  etrlng  of  (32)  ’l’B) 


EMDSTRUCTUEE; 
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ROUTINE  ARPT 

H}  (CNVTP1M); 

INPUT  (APTS TAT,  HIOPLAG,  CNVTAPT,  R STATUS ,  I); 

(Thle  routine  lnvokea  airport  stacua  acraan  for  both  current  and  forecaet  environment) 

ARPT  DATA  -  APTSTAT; 

MIDDATA  -  MIDFLAG; 

CNVRT  APT  -  CNVTAPT; 

REPEAT  UNTIL  (RSTATUS  ME  PFI2); 

ARPTDATA(I)  -  APTSTAT(l) ; 

CNVRTAPT(I)  -  CNVTAPT(I); 

HIDDATA(I)  -  MIDFLAG(I); 

REPEAT  UNTIL  (RSTATUS  HR  PF3); 

I  •  SVITCH(I); 

CALL  ASCREEN; 

III  (CNVTPRM); 

INPUT  (ARPTDATA(I),  HIDDATA(I) ,  CHVRTAPT(I) .  RSTATUS); 

(thia  routine  control#  airport  ataciia  eereen] 


ENDREPEAT; 


ENDREPEAT; 


LOOP;  [J  -  1  To  2] 

IF  SUBSTR(ARPT_DATA( J) .MSG,  1,  12)  E^  'DATA  ENTERED* 
TURN 

APTSTAT(J)  -  AHPT_DATA(J); 

MIDFLAG  (J)  -  MIDDATA(J); 

CNVTAPT(J)  -  CNVRT_APT(J); 

ENDLOOP; 


END  ARPT; 


ROUTINE  ASCREEN 

IN  (CNVTPRM)i 

INPUT  ( ARPT_DATA(  I)  ,  MIDDATA(I),  CNVRT_APT(  I )  ,  RSTATUS); 

[This  routine  control*  nlrport  status  screen] 

CHR  PNAME  (cheracter  variable  of  length  8  containing  the  naae  of  OHS  panel  lnltlallaed  to 
'AIRPORT' ,  the  naae  of  the  panel  that  controls  airport  statu*  acreen) 

I NT  CURSOR  [Integer  variable  containing  the  cursor's  position  on  the  acreen) 

BITS  DN(161)  [8  bit  variable  of  data  Bask  used  In  DNS] 

STRUCTURE  AUXDATA  LIKE  AXPTDATA(I) 

ENDSTRUCTUEE; 

STRUCTURE  AUXCNVRT  LIRE  CHVRTAPT(I) 

ENDSTRUCTUEE ; 

CHAR  AUX_HID; 

CURSOR  -  2;  {set  cursor  to  position  2;  first  data  field  used  by  the -user] 

DM  -  PLDDEP;  [set  data  aaak*  to  default  intensity  (nonMl)) 

DN(1)  -  rUBICa;  (set  first  data  field  to  high  Intensity) 

EM(163)  -  FLDUIGH;  [sat  last  data  field  to  high  Intensity) 

AUXJ1ATA  -  ARPTDATA(I); 

AUXMID  -  MIDFLAG(I); 

AUX  CHVT  -  CNVRT_APT(I); 

PER  PORN  SET  UP  SCIEENPO INTERS  (ARPT); 
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REPEAT  UNTIL  (RSTATUS  HE  ENTER); 

PERFORM  DISPLAY_PANEL; 

IF  RSTATUS  E£  PA1 
THEM  scop; 

IF  RSTATUS  NE^  ENTER 
THEM 

ARPT__DATA( I)  -  AUX_DATA; 

MIDDATAC I)  -  AUXMID; 

CMVRT  APT(I)  -  AUXjCNVT; 

ELSE 

LOOP;  (J  -  2  To  162] 

DM(J)  -  FLDDEF; 

ENDLOOP; 

CALL  ACHECR; 

INPUT  (ARPT_DATAU),  HIDDATA(I),  C MVRT  APT, CURSOR) J 

(Thl»  routine  check*  for  error*  occurred  on  screen  *e  •  result  of  an  erroneous 
entry  and  return*  value  for  cursor  pointing  to  first  data  field  where  an  error 
has  occurred  end  an  appropriate  acreen  aeasage  la  Issued  advising  user  with 
corrections] 

IF  ARPT_DATA(  1 )  .MSG  ME  ’DATA  ENTERED' 

THEM 

DM(CURSOR)  •  FLDHIGH; 

ELSE 


CALL  AVALID; 


INPUT  (  ARPT__DATA(  I)  ,MIDQATA(1)  ,CNVRT_APT(I )  ,  CURSOR) ; 

(This  routine  performs  date  validation  checks  on  screen  entries  and 
returns  value  for  cursor  pointing  to  first  invalid  data  field.  Also, 
an  appropriate  screen  aeasage  is  Issued  advising  user  with 
corrections) 

IT  ARPT_DATA(I).MSC  NE  'DATA  ENTERED' 

THEN 

DM(CURSOR)  -  PLDHICH; 

ELSE 


CALL  AUPDATE; 

IN  (CNVTPRM); 

INPUT  (ARPTDATA(I),  NIDDATA(I); 

(This  routine  performs  local  updates  on  screen) 

ARPT_DATA(I).HSC  -  'DATA  ENTERED  AT  'CONCATENATE  CMT; 

AUX  DATA  -  ARPT  DATA(I); 

AUX  KID  -  MIDDATA(I); 

CNVf  AUX  -  CNVRT  APT(I); 


ENDREPEAT; 


END  ASCREEN 


2-271 


PROCESS  S  ET_UP_SCRBER_PO  I  NTE  RS_!  ARPT  ) 

{This  process  secs  up  screen  pointers  for  DNS  use) 

AIRPORTLOADLIST.TIMB  -  ADDR(ARPT_DATA(I )  .TIME) ; 

AIRPORT JLGADLIST.WX. CEIL  -  ADDR(ARPT  DATA!!). WX. CEIL); 

AIRPOKT_LOADLIST.WX.VIS  -  ADOR( ARPTjSATA(I) .WX.VIS) ; 

AIRPORT  LOADLIST. WIND.DIR  -  ADDR(ARPT  DATA(I). WIND. DIR); 

AIRPORT_LOADLIST.WIND.VEL  -  ADOR(ARPT_DATA(  I )  .WIND.  VEL)  ; 

AIRPORTLOADLIST.  MIDWAY  -  ADOR(MIDDATA(  I )  ) ; 

LOOP;  (J  -  1  To  12 1 

AIRPORT_LOADLIST.RUNWAY(J).TOWER.ARR  -  ADOR(ARPT  DATA(I)  .RUNWAY(J)  .TOWER.DEP); 
AIKPORT_LOADLIST.  RUNWAY!  J). TOWER. DEP  -  ADM(AEPT~ DATA! I) .RUNWAY! J) . TOWER.DEP) ; 
AIRPORTLOADLIST.  RUNWAY  (  J).  SUE?  ■  ADDR(ARPTDATATi)  .RUNWAY! J)  .SURP) ; 

AI  RPORT_LOADL  1ST.  RUNWAY!  J)  .BRAE  -  ADOR(  ARPT  DATA(  1).  RUNWAY  (J).  BRAE); 
AIRPORT_LOADLIST.RUNWAY(J)  .RVR  -  ADDR(ARPT  DATA(I)  ,RUNWAY(  J)  .RVR) ; 
AIRPORTLOADLIST. RUNWAY(  J). DIR  -  ADOR(  ARPT  JUT  A  ( I)  .  RUNWAY  (  J)  .DIR); 
AIRPORTLOADLIST. RUNWAY!  J). VEL  -  ADOR(ARPT_DATA( I ) .RUNWAY! J ) .VEL) ; 

AIRPORT  LOADL  1ST. RUNWAY (J).CRSS  ■  ADOR! ARPT_DATA(I)  .RUNWAY !J)  .CRSS) ; 

AIRPORT  LOADLIST. RUNWAY!  J)  .TAIL  -  ADOR(ARPTJ DATA! I)  .RUNWAY!  J)  .TAIL); 

AI RPORTLOADL  1ST .  RUNWAY  !  J  ) .  CLOSED  .ARE  -  ADOR!  ARPTDATA!  I )  .  RUNWAY  !  J  )  .  CLOSED .  ARR  ) 
AIRPORTLOADLIST.RUNWAYIJ). CLOSED. DEP  -  ADOR! ARPTDATA! I ) .RUNWAY! J ) -CLOSED. DEP ) 

ENDLOOP; 

AIRPORTJLOADLIST.MSG  •  ADOR! ARPT_DATA! I ) .MSG ) ; 

END  SET_UP_SCREEN_POINTERS_!ARPT); 
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ROUTINE  A CHECK 

INPUT  (  ARPT_DATA(  I )  .MIDOATA(I)  ,CNVRT_APT(I)  .CURSOR); 

(This  routine  cheek*  for  error*  occurred  on  screen  e*  e  result  of  an  erroneous  entry  and  returns 
value  for  cursor  pointing  to  first  data  field  vhere  an  error  has  occurred;  sad  an  appropriate 
screen  message  is  issued  advising  user  with  corrections) 

ERR1  -  'NUKRIC  INPUT  REQUIRED' ; 

ERRZ  -  'NON-NEGATIVE  INPUT  REQUIRED'; 

ERR3  -  'NO  DECIMAL  POINTS  ALLOWED* ; 

ERR5  -  'INPUT  MUST  RE  X  OR  BLANK '; 

ARPT_DATA(I).MSG  -  'DATA  ENTERED'; 

ON  CONVERSION  BEGIN;  (ON  CONVERSION  Is  a  PL/I  faatura  that  la  Invoked  if  a  character  data  is 
detected  in  a  numerical  data  field) 

ARPT_DATA(I).MSG  •  ERR1; 

RETURN; 

CURSOR  -  2; 

PERFORM  CEIL_DATA_riELD_ERROE_CHECX; 

EEITIF  [error  detected! 

CURSOR  -  3; 

PERFORM  V ISDATAF I ELDERRORCHECK ; 

EKITIP  (error  detected) 

CURSOR  -  A; 

PERFORM  WIND_DIR_DATA_PIELD_ERROR_CHECE; 

EEITIF  (error  detected) 

CURSOR  -  5; 
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PERFORM  *INDJfELJ»TA_FIELD_ERROR_CHECE; 

RXITIF  (error  detected] 

CURSOR  -  6; 

IF  X  (MIDDATA(I))  NX  0 

THEN  ARPT_DATA(I).MSG  -  ERR5; 

ELSE 


REPEAt  WHILE  (ARPT_DATA(I).MSG  EQ  'DATA  ENTERED');  (J  -  1  to  12) 
CURSOR  -  CURSOR  +  1; 

IF  X(ARPT_DATA(I).RUNWAT(J).TOHER.ARR)  NE  0 

THEN  AEFT_DATA(I).MSC  -  ERRS; 

ELSE 

CURSOR  -  CURSOR  +  1; 

IF  X(ARPT_DATA(I).RUMIAT(J).TOUBR.DBP)  NE  0 

THEN  ARPT_DATA(I).MSC  -  ERRS; 

ELSE 

CURSOR  -  CURSOR  +  1; 

IF  X(ARPT_DATA(I).RUNHAT(J).SURF)  NE  0 

THEN  ARPT  DATA(I)  .MSC  -  ERRS; 

ELSE 

CURSOR  -  CURSOR  -I-  l; 

IF  X(ARFT_DATA(I).RUWAT(J).RRE)  NE  0 

THEN  ARPT  DATA(I).MSG  -  ERRS; 

EL8E  CURSOR  -  CURSOR  +  9; 


IF  ARFT_DATA(I).NSG  E£  'DATA  ENTERED' 
THEN  CURSOR  -  2; 

END  ACHXCX; 


ter  * 


« 
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Cet  STRING  <*RPTJ>ATA<I).W.CBU>  EDIT  <CNVRT_OATA(I>.W.CRIL>; 

If  CHV*T_DATR(I).WX.CEI1,  LT  0.0 

THEM  ARPT_DATA(I)  .MSG  -  sr*I; 
gLSEIF  VERIFY ( '  .  AMTj)AtA{I>.W.aSIU  5a  0 

THEM  *IPT_n*M(I).NSG  -  EMtii 

MB  CRILJ3ATR_FIEU>_ERR0R_CHECE; 

-  *-*«*»  — «•“» 

Ctt  STgI*  <«PT_WTA(I).«.VtS)  SOW  (cmt_DATA(I) .HX.VIS) 

If  CMVSTJ>ATR(I).«.VIS  LT  0.0 

THEM  ARPT_nATA(l)  .fBG  -  M*2j 
RHP  V  ISUAT  A_F  IRLDERRORjnttCR ; 

ct  STRING  (»K_pm«> .«®.0M)  EDIT  <CW»TJ»ATA<I>  .«».»»> 
If  c«YIT_OATA( I)  .WIND. OU  W  00 
THEM  ARFTJOATA(I)  .NSG  *  *RR2s 
elseif  VERIFY  (•.•.  ARPTJ»Att(I).m®.WM  52.° 
them  RRPT_0ATA(I).NSC  -  BRRJi 

END  «U>_0IRJ>ATA_FIEU>_KRR0R_CH*CE: 


NJ 

I 

KJ 

VI 

Ul 


1I0CESS  EIKLO  EUOI  CHECK 

fm‘  Pr°C“*  -*  v.XocU,  «...  fleldJ 


G*t  (AR?-MrAa)-WIm-V^  *OIT  (CHVRT^DATA(I),Hihd.VEI.) 
If  cmv*T_OATA{I).WIKD.VEL  LT  0.0 

ISSS  AIPTJU TA(I).MSG  -  ER*2; 

5tS5H  VERIFY  AMT  OATAC I ) .  WIND .  VEL  )  H  0 

I«»  AIPT_DATA(1)  .KSC  -  EUU; 

—  «1»n>_VEL_DATA_EIELD_EgBo»_CHECK; 
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ROUTINE  AVALID 

INPUT  (ARPTJDATA(l),  MIDDATA(I) ,  CNVRT_APT(I) ,  CURSOR); 

[This  routine  performs  data  validation  checks  on  the  screen  entries  and  returns  the  value  for 
cursor  pointing  to  the  first  Invalid  data  field.  Also,  an  appropriate  screen  aessage  is  Issued 
advising  the  use  vlth  corrections] 

*TWO  -  2; 

$ THREE  -  3; 
tFOUR  -  4; 

CURSOR  -  2; 

ARPT_DATA(I).UX.CBIL  -  SUBSTE(F(CHVRT_APT(I)  .WX.CEIL,  tFOUR)  ,  1,4); 

CURSOR  -  3; 

IF  CNVRTJUPT(I)  .HX.VIS  CB  100.0 

THEH  ARPTDATA(I) .MSG  -  'VISIBILITY  MUST  SB  LESS  THAN  100  MILES' 

ELSE  C  -  P(100.0  *  CMVRT__APT(I).VX.V1S,|F0UR); 

IF  CNVRT_AJPT(I).HX. VIS  LT  10.0 

THEM  ARPT_OATA(I).HX.VIS  -  SUBSTRfC ,2 , 1)  COMCATEMATE  '  .'  CONCATENATE  SUB  STB  (C,3,2); 
ELSE  ABPT_DATA(I).HX.VIS  -  SUBSTB  (C,l,2)  COMCATEMATE  '.'  COMCATEMATE  SVBSTB  (C.3,1); 
CURSOR  -  4; 

IF  CNVRT_AFT(  I)  .HIND. DIR  GE  360.0 

THEM  ARPT_DATA(I).MSG  •  'HIND  DIRECTION  MIST  BE  LESS  THAN  360  DECREES'; 

ELSE 

C  -  TRANSLATE  (F(CNVRT_APT(I).HIED.DIR,tT8RKE).  '0','  •); 

ARFT  DATA(I). HIND. DIR  -  SOBSTR  (C.1,3); 

CURSOR  -  5; 

ARPT__UATA( I )  .HIND.VEL  -  SUBSTH<F(CNVRT_APT(I)  .HIND.  VBL.lTVO) ,  1 ,2)  ; 
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END 


REPEAT  WHILE  ( ARPT_DATA(  I )  .MSG  E£  'DATA  ENTERED');  [J  -  1  To  12) 

CURSOR  -  13  *  J  -  4; 

.IF  (  ARPT_DATA(  I )  .  RUNVAY( J  )  .  SURF  E^  (2)  •  '  )  AND  ( ARPT__DATA(  1 )  .  RUNWAY  ( J  )  .  BRK  NE  (2)  'b') 

THEN  A*PT_DATA(I).HSG  >  'SURFACE  AND  BRAKING  CONDITIONS  ARE  NOT  CONSISTENT'; 

ENDREPEAT; 

IP  ARPT_DATA(I).NSG  E^  'DATA  ENTERED' 

THEN  CURSOR  •  2; 

AVALID; 
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ROUTINE  A UPDATE 

IN  (CNVTPRM); 

INPUT  (  A*PT_DATA( I )  ,  MIDOATA(I),  CNVRTAPT(I)); 

(Thli  routine  perform  local  updataa  on  acraan) 

CALL  HIND; 

INPUT  (ARPTDATA(I),  CNVRTAPT(l)); 

[Thla  routine  conputea  croaawlnd  and  tailwind  coavonenta  of  prevailing  wind  and  aata  up 
correepondlng  acraan  data  flalda) 

CALL  CLOSING; 

IN  (CNVTPRM); 

INPUT  (A1PTDATA(1),CNVRT_APT(I)); 

[Thla  routine  cloaaa  runway e  baaed  on  wind  condltlona  and  weather  alnlaa) 


END  AUPDATE; 


2.10  Runway  Equipment  Status  Screen 

Pages  2-280  to  2-289  describe  the  processing  for  the  Runway 
Equipment  Status  Screen. 
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[•••LOCAL  VARIABLES***! 


STRUCTURE  RUY_DATA(2)  LIKE  RUYEQP 

(This  structure  is  similar  to  RUYEQP  used  as  a  working  area  within  the  screen  routine) 

BHDS1RUCTORE; 

IWT  SUITCH(2)  [This  variable  is  used  for  switching  between  current  and  forecast  screens,  initialised  to 

(2.1)1 

STRUCTURE  RUY_L0ADLIST  [A  structure  of  pointers,  one  for  each  data  field  on  the  screen  used  by  panel 
manager  for  loading  and  unloading  to  and  fron  screen] 

PTR  TIME  [pointer  for  environment  data  field] 

CROUP  RUHUAYU2) 

PTR  CATII  [pointer  for  CAX1I  data  field) 

PTR  LOC  [pointer  for  localizer  data  field] 

2*  GS  [pointer  for  glide  slope  data  field) 

PTR  0M  (pointer  for  outer  Barker  data  field] 

PTR  MM  [pointer  for  Biddle  marker  data  field] 

FIR  IM  [pointer  for  inner  Barker  data  field] 

PTR  RAIL  [pointer  for  RAIL  data  field] 

PTR  ALS  [pointer  for  ALS  data  field] 

PTR  RVR  [pointer  for  RVR  data  field] 
i'll  HIRL  [pointer  for  U1RL  data  field] 

PTR  CL  [pointer  for  centerline  lights  data  field) 

PTR  TDZ  [pointer  for  TDZ  data  field] 

FWT  NDBJTOR  (pointer  for  NDRJTOR  data  field]' 

PTR  MSG  [pointer  for  screen  message  data  field] 

BITS  PENCE  (32  bit  variable  as  prescribed  by  MS  nanusl,  initialised  to  string  of  (32)  *1’B] 
SUBSTRUCTURE; 
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ROUTINE  KVY 

INPUT  (RUYKQP ,  RSTATUS ,  I); 

[This  routine  invokes  runway  equlpaent  status  screen  for  both  current  and  forecast  envlronaent] 
RWY_D*TA  -  RtfYEQP; 

REPEAT  UNTIL  (RSTATUS  NR  PF12); 

RVY_DATA(I)  -  RWYEQP(I); 

I  *  SUITCH(I) ; 

(switch  between  two  screens] 

REPEAT  UNTIL  (RSTATUS  HE  PFA); 

I  -  SUITCH(I); 

CALL  R  SCREEN; 

INPUT  (RWT_DATA(I),  RSTATUS); 

(This  routine  controls  runway  equipaent  status  screen] 

EMPREPEAT; 

BHMWi 

LOOP;  |J  •  1  to  2] 

IF  SURSTR(RUy_DATA(J).HSG,  1,  12}  E£  'DATA  ENTERED* 

THEM  RVTEQP(J)  -  RWT_DATA(J); 

END LOOP; 


END  RUT ; 
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ROUTINE  RSCREKN 

INPUT  (RWYJJATAd),  RSTATUS) ; 

[This  routine  controls  runway  equipment  status  screen 1 

CWt  PNAME  (character  variable  of  length  8  containing  nane  of  DMS  panel  Initialised  to  'RUNWAY' t  naae 
of  panel  that  controls  runway  equipment  status  screan] 

IHT  CURSOR  [Integer  variable  containing  cursor's  position  on  screen) 

MTS  DM(1S8)  (8  bit  variable  of  data  mask  used  In  DMS] 

STRUCTURE  AUXJMXA  LIKE  RWY_DATA(I) 

EMPSTRUCTURE; 

CURSOR  “  3;  (set  cursor  to  position  3;  first  data  field  used  by  user) 

DM  “  FLDDBF;  (set  data  fields  to  default  Intensity  (nornal)] 

DH(1)  "  PLDH1GH;  (set  first  data  field  to  high  Intensity) 

DM(158)  -  FLDHIGH;  (sot  last  data  field  to  high  Intensity) 

AUX  DATA  -  RWYJBAIA(I); 

PERFORM  SETJJP_SCREEN_POIMTERS_(RWT)j 
REPEAT  UNTIL  (RSTATUS  ME  ENTER); 

PERFORM  DI SPLAY_PAMEL ; 

IF  RSTATUS  E^  PA1 


THEN  stop; 

IF  RSTATUS  MS  ENTER 

THEM  RWTJMTA(I)  -  AUXJJATg; 
ELSE 


i 


2-283 


LOOP;  [J  -  2  To  1571 
DM(J)  -  PLDDEF; 

END LOOP; 

CALL  RCHECK; 

INPUT  (RWy_BAIA(I),  CURSOR); 

[This  routine  checks  for  errors  occurred  on  screen  es  a  result  of 
erroneous  entry  and  returns  value  for  cursor  pointing  to  first  data  field 
where  an  error  has  occurred,  and  an  appropriate  screen  Menage  is  Issued 
advising  user  with  corrections] 

IF  RWT_DATA(I).MSG  HE  'DATA  ENTERED ' 

THEM  DM(CURSOR)  -  FLDHIGH ; 

ELSE 

CALL  RUPDATE; 

IMOUT  (RWY_DATA(I); 

[This  routine  perfons  local  updates  on  screen] 
RVY_DATA(I).KSG  •  'DATA  ENTERED  AT  '  CONCATENATE  GMT; 

AUX_DAIA  -  RVY_DATA(I)  ; 

EHDREPEAT; 


END  RSCREEN; 
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PROCESS  SET  UP  SCRRBN_POIKTERS_<RWY)  .... 

I  This  process  sets  up  screen  pointers  lor  BUS  use 

RUT  LOADL1ST . TIKE  »  ADDR(RWY_DATR(I) .TIME) ; 


MOP;  [J  -  1  To  121 

aWY  LOADUST.RUHKAY<J).CAIII  -  AW*( EWY_DATA( I ) . RUHUAY( J ) .CATII ) ; 


RUY  L0ADL1ST .RUUHAY(J)  «MC  - 

RVYrLOADUST.R«IUAY<J>.GS  -  AM*(R«YPAtA») .*«««»> •}»> f 
rwy~madlist.ru*iay(J).om  -  H'mShSc : 

R«YTjOADUST.RUHWAY(J).M»  «  AIW(RVYJ*TA(1)  .AUWAYU) ■<«> . 
RWY'LQADUST . RUNWAY ( J )  .  1M  “  AB»(*Wr  BRtA(l)  .RUHJttY(J)  •™>. 

RWY-LO ADUST. EURHAYCJl.RAIL  -  AMR(Ufr_DATA( X) .EIWWAYU > -^L> ■ 

RUY~ LOADUST.RUHWAY(J)  .ALS  -  ADDR(EWY_DATA(I)  .RWWAYU) .*LS> . 

rw-SSst.rvwuay«).ryr  - 

rwy'madust.runhaycjkhoi.  fell  CL).  * 

RWrMADUST.RUMMAY(J).Cl.  -  AM*(R«jff»«) AU^tO) .CU,^ 

RVyIqaDUST.RUIIVAYCJ) .TSZ  -  AIW(*OT  DATA( I) .EtWATCJ) .TM> , 

RWY'LO ADUST  .RURUAY  (  J  )  .NDB_VOR  -  AW*X»MY _DATA(  l )  .RUUMAY  C  J  )  .KDB JTQR) , 


EWDMOP; 

RUY  LO ADUST.  H3G  "  ADOR(KVY_DAIA(I)  .KSC); 
END  SET  UP_SCRBOI_POXirrttS_(RWT) ; 


/ 
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ROUTINE  RCHECK 

INPUT  (RWY_DATA(I),  CURSOR); 

(this  Foutlue  checks  for  errors  occurred  oa  screen  ss  a  result  of  an  erroneous  entry  and  returns 
value  for  cursor  pointing  to  first  data  field  where  an  error  has  occurred,  and  an  appropriate 
screen  aessage  Is  Issued  advising  user  with  corrections} 

ERR5  »  'INPUT  MUST  BE  X  OR  BLANK'  ; 

RWT_DATA(I).MSG  -  'DATA  ENTERED'; 

REPEAT  WHILE  (RW_DATA(I) .MSG  f£  'DATA  ENTERED');  [J  -  1  to  12) 

CURSOR  -  13  *  J  -  11; 

IP  ( J  EX}  5  OR  J  6)  AND  X(RWY_DATA(I) .RUNHAY(J) .CATII)  NE  0 
THEN  RWY_DATA(I).MSG  -  ERRS; 

ELSE 

CURSOR  -  CURSOR  +  1; 

IF  X(RUT  DATA(I).RUNWAY(J).LOC)  NE  0 
THEN~  RUY_DATA(I).MSG  -  ERRS; 

ELSE 

CURSOR  -  CURSOR  +  1; 

IP  (J  ire  2)  AND  X(RHY  DATAU).RUNUAY(J).GS)  NE  0 
THEN  RWY_DATA(I)7mSC  -  ERRS; 

ELSE 

CURSOR  -  CURSOR  ♦  1; 

IP  (J  NE  2)  AND  X(RHY_DATA(I) .RUNUAY(J)  ,KH)  NE  0 
THEN  RtfYJMTA(I).MSC  -  ERR5; 

ELSE 

CURSOR  -  CURSOR  *  1; 


i 
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IF 


(J  EJ  5  OR  J  6)  AND  X(RWY_DATA(1).RUNWAY(J).IM)  NE  0 
THEN  RVY  DATA(I).KSG  -  ERRS; 

CURSOR  -  CURSOR  +  1; 

IF  (J  HE  2)  AMD  X(RWY_DAIA(I).RUNWAY(J).RAIL)  NE  0 
THEN  RtfY_DAIA(I).MSC  -  ERRS; 

ELSE 

CURSOR  -  CURSOR  +  lj 

IF  (J  NE  1  AMD  J  NE  2  AND  J  NE  7  AND  J  NE  8) 
and  x(rht_dataTT)  .RUNNAY( jT.rvr)ne  0 

THEN  RHY_DAIA(I).IGC  *  ERRS; 

ELSE 


'  CURSOR  -  CURSOR  +  I; 

IF  (J  NE  1)  AND  (J  NE  2)  AND  (J  NE  ») 

andTj  nrTT  andTj  neTT  andTj 

NE  9)  AND  XtRWY  UATaTD. 

snwuAYi j* ne  o 


THEN  RHY  DATA(I).  NSC  -  ERRS 
ELSE 


CURSOR  -  CURSOR  +  1; 


IF  (J  sgt  S)  OR  (J 

6)  OR  (J  Eg,  U)  OR 
(J  EQ  12)  AND  X(RUY 
dataci).ruSSXy(j).td2 
)  ME  0 

THEN  RHY 
DATA  ( I )  •  HSC  - 
ERRS; 
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ELSE 

CURSOR  - 
CURSOR  +  1; 

ir  (J  HE  1)  AMD  (J  ME 
4)  AND  (J  HE  8)  AMD 
(J  BTlO)  AND  x(rwF 

dataTi). 

RUNWAY(J)«NDB  VOR) 
ME  0 


THEM  RHY_DATA(I).HSG  -  ERRS 

EHDREFEAT; 

IF  RUY_DATA( I ) «MSC  -  ‘DATA  ENTERED' 

THEM  CURSOR  "  3;  (if  no  erron  detected  return  cureor  to  top] 


END  RCHECK; 
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ROUTINE  RUPDATE 

INPUT  (ROT  DATA(I))  i 

(This  routine  performs  local  updates  on  acreenl 
LOOP;  (J  »  5  To  6l 

IF  RWYJ>ATA(I).AUNWAY(J).LOC  NR  (  )  *  * 

THEN  ROT_DATA(I).RUNWAY(J).CATII  -  'X  • 

IF  ROT_OATA(I).RUNWAY(J).CS  WE  (2)  ’  ' 

THEN  ROT_DATA(1) .RUHHAYU)  .CATII  -  ’X  • 

IF  ROT_DATA(I).RUNHAY<J).OH  NR  (2)  ’  ' 

THEN  ROT_DATA(I).RUHWAY(J) .CATII  -  *  *S 

IF  ROTJ>ATA(I).RUNWAY<J).IW  NR  (2>  ’  * 

THEN  ROT_DATA(I>.RUNNAY(J>. CATII  -  ’X  ' 

IF  ROT_nATA(I).RUI«AY(J).IN  NR  (2)’  ' 

THEN  ROT_DAT A( I ) . RUNWAY ( J ) •  CAT  II  -  *X 

IF  ROT_DATA(I>.RUNWAY(J>.RVR  NR  (2)'  • 

THEN  ROT_OATA(I).RUNWAY(J). CATII  -  'X 

IF  ROT_DATA( I ) .RUNWAY ( J ) . AU  NE  (2)  ’  * 

then  ROT_DATA(I).RUNWAY(J). CATII  -  ’X 

IF  ROT_nATA(I).RUNNAY(J).HIRL  NE  (2)  *  ' 

THEN  ROT  DATA( I ) .RUNWAY ( J) ■  CATII  -  'X 


I 
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IF  RWYJ>ATA(I).RUNVAY(J).CL  NE  (2)  '  * 

then  RUY_DATA(I) .runway<j> .catii  -  ‘X 

IF  RWYJ)ATA(I).RUNWAY(J).TDZ  ne  (2)  •  ' 

then  RWY_DATA(I).RtnWAY(J).CATII  -  *X 

END  LOOP; 

END  RUPDATE; 


2.11  Demand  Profile  Screen 

The  Demand  Profile  Screen  Is  described  in  pages  2-291  to  2-309. 
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[•••LOCAL  VARIABLES***) 


STRUCTURE  D*«D_DATA(2)  LIKE  DEMAND 

[This  structure  is  similar  to  DEMAND  used  ss  a  working  ares  within  screen  routine) 

ENDSTRUCTURE; 

STRUCTURE  CHVRT_0EM(2)  LIKE  CNVTDEM 

[This  structure  is  slmilsr  to  CNVTDEM  used  ss  s  working  srss  within  screen  routine) 

ENDSTRUCTURE; 

I  NT  SUITCHC2)  [This  variable  is  used  for  switching  between  current  end  forecast  screens,  laltlellzed  to 

(2.1)1 

STRUCTURE  DHND_L0ADL1ST  [A  structure  of  pointers,  one  for  each  dsta  field  on  screen  used  bp  panel 
manager  for  loading  and  unloading  to  and  from  screen] 

PTR  TIME  [pointer  for  environment  dsta  field) 

PTR  FROM  (pointer  for  beginning  time  decs  field) 

PTR  TO  (pointer  for  ending  time  data  field) 

PTR  RETRIEVE  [pointer  for  retrieve  function  data  field] 

CROUP  ARR 

PTR  TOTAL  [pointer  for  total  arrival  demand  data  field) 

PTR  KUBBS  [pointer  for  KUBBS  arrival  demand  data  field) 

PTR  CCT  (pointer  for  CGT  arrival  demand  data  field) 

PTR  VAINS  [pointer  for  VA1HS  arrival  demand  data  field) 

PTR  FARMM  (pointer  for  FARMM  arrival  demand  data  field) 
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CBOUP  .  _ _ I  prof  u*  «ct..ol 

m  TOTAL  l  pointer  for  totnl  Oooortur.  ta. * 

—  ^  ■  ...  flpld  on  d*uod  prof  11. 

m  tAST  (pointer  for  MST  dopnrtur.  d—*  <Ut» 

-  «_  .o—— — — — 

-  .  ™st _ d-n«d  dot.  11.14  on  d—cd  »™m.  «"• 

PT»  WEST  [  pointer  for  WEST  d^nrtnr. 

pj»  MSG  l pointer  for  »ciono  «nwn».  *1*1  '  .  .^.pi 

~  M  ..  _***  W  Ml  —1.  WMU-*  l°  rt*U»  01  W> 

MTS  PENCE  (31  bit  wlnbl*  »»  pcocrll*o  op 

pimsTRUCTUEE; 


! 
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REPEAT  UNTIL  (RSTAHIS  ME  PP12)  i 

DMND  DATA(I)  "  DEMAND(I) ; 

CHVRT  DEM(l)  *  CMVTDEM(I); 

I  -  sUlTCHU); 

REPEAT  UNTIL  (RSTATUS  HE  M5>» 

I  -  suiTCH(I) ;  [»vltch  tetvmn  two  ocroonol 


CALL  DSCRESM; 


IN  (CHVTOAG); 

IHOUT  (DMID  DATA(I) »  CNV*TJ>W»>.  RSTAIW,  I>1 

iThlo  rout  la*  control*  4*n*o<i  prof  11*  *t»tu*  scroool 


EHPREPEAT; 

EMDREPEATi 

LOOP;  lJ  "  1  to  21 

IP  SUMTR(»«D_DATA(J).HSG.1.U)  Hi  *“TA  ”,mK>’ 
THEN 

DEMANDU)  ”  BM iOATA(J)j 
CNVTDEH(J)  *  CNVftJ)EM(  J)  i 


END LOOP; 


END  DHND; 
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ROUTINE  D SCREEN 
IN  (CNVTOAC); 

INPUT  (DtWD_OMA(I),  CNV»T_DEN(I),  RSTATUS,  I); 

(This  routlos  controls  dessod  profile  screen) 

CHR  PNANE  (cherecter  verleble  of  length  8  containing  nans  of  OKS  panel  Initialized  to  ' DEMAND' 
”  none  of  panel  that  controls  deosTvl  profile  screen] 

1NT  CURSOR  (Integer  variable  containing  cursor' s  position  oh  screen) 

BITS  DH(1S)  (8  bit  variable  of  data  aaaka  need  in  IMS) 

FLT  0FFSBT(2) 

STRUCTURE  AUXDATA  LIKE  D(MD_DATAU) 

ENDSTRUCTUEE; 

STRUCTURE  AUX_CMVT  UKg  CNVRT_HM<1) 

ENDSTRUCTUEE; 

CURSOR  «  4;  (set  cursor  to  position  4;  first  data  field  used  by  user) 

DM  -  FLUME)  last  data  fields  to  default  Intensity  (aornsl)) 

DM(1)  -  PLDHIGH;  (set  first  data  field  to  high  Intensity] 

DM(15)  *  [set  last  data  field  to  high  Intensity) 

RETRIEVE  -  (2)  '  *  j 
AUX  DMA  -  MMD  DATA(I) ; 

AUX~CNVT  •  CMVRTJDEM(I); 

Get  STRING(GMT)  EDIT  (CFROM) j  (gat  current  tine) 

CFROM  -  HOO( CFROM  +  OFFSET(l),  2400.0); 

CTO  -  MOD  (CFROM  +  100.0,  240.0); 

FROM  -  TRANSLATE  (SUBSTR(F(CFR0H,tfR0M) ,1,4) , '0'  '); 
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PERFORM  S£T-UP_SCREEN_POINTERS_(DI«D); 
REPEAT  UHT1L  (RSTATUS  NE  ENTER); 
parem  display_paxel; 

IP  RSTATUS  52  PA1 
THEN  atop; 

IP  RSTATUS  ME  ENTffi 

THEN  DIM)  DATA(I)  “  AUX  DATA; 

~  CUVET J*N(I)  “  AUEjanT) 
else 

LOOP;  (J  -  A  To  12) 

- DM(J)  -  PIDDEP  ■ 

ENDLOOPi 


r.Al.l.  DCHECX; 

IN  (CNVTQAC); 

INOUT  (HMD  DATA(I),  RETRIEVE,  «aHETDEH(I),  CaOM,  CTO,  CI&SOR); 

r  This  rout loo  chock*  for  erroro  occurred  on  acroon  aa  a  “  ,  , , 

erroneoua  entry  and  roturna  value  for  curoor  polntin*  to  flrat 
Where  an  error  tana  occurred;  and  an  appropriate  ecreou  aeaaage  la  laaued 
advlalnp  uaer  with  correctional 

IP  DIM)  DATA(1)*HSC  HE  'DATA  ENTERED’ 


THEN 

-  DH< CURSOR)  -  PLDHIGH; 

ELSE 


CALL  DVAUD; 

IN  (CNVTQAO; 


p 
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moot  (mo®  daia(i>,  retrieve,  cnvrtjdehU), 

-  CFROtC  CTO,  CURSOR); 

[This  tntlM  performs  data  validation  checks  on 
screen  entries  and  returns  vslue  for  cursor 
pointing  to  first  Invalid  data  field,  also,  an 
approprUte  screen  message  Is  Issued  advising 
user  with  correctional 

IP  nMO_MIg(l).HSG  NE  'DATA  ENTERED' 

THEM  DN(  CORSON)  -  PLDHIGH; 

ELSE 

StgfD_JMIA(I).MSC  “  'DATA  ENTERED  AS  CONCATENATE 
CUT; 

AUX  DATA  -  DtMD  DATA(I) ; 

AUX'DAIA  -  CMVETJ>EN(I) ; 


EHDREPBAT; 
END  DSCREEH; 


» 
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PROCESS  SET_UP_SCRERN_POINTERS_(  D*D)  ; 

(This  process  sets  up  screeu  pointers  for  DKS  use) 

DMiD  LOADLIST. TIKE  •  ADOR(DMND_DATA(I)  .TINE) ; 
DMND_LOADLIST.FROM  -  ADDR(FROH); 

DHND~LOADLIST.TO  *  ADDR(TO); 

DMND  LOADLIST. RETRIEVE  -  ADD# (RETRIEVE)  i 
DMID~LOADLIST.ARR.TOTAL  -  ADDR(0MiD_DATA( I )  .ARE .TOTAL)  ; 
DMND  LOADLIST. ARR.KU BBS  -  ADDKDHND  BATA(l)  .ARR.KU1BS)  i 
DHND_LOADLIST.ARR.CGT  -  ADDR(DMTO_DATA(X)  .ARR.CCT) ; 

DMTO  LOADLIST. ARE. V AIKS  •  ADOR(DMTO_DAn(I) .AAR. VA1NS)  1 
DMTO  LOADLIST  .ARR. FARM!  -  ADOR(DMND~DATA( D.AAR.PARMO ; 
DMTO~LOADLIST.DEP.TOnL  -  ADCR(DMTO~DATA(1). DIP. TOTAL); 
DM4D~L0ADLIST.DEF .NORTH  -  ADOR(DMTO~DATA(I)  .DEP. NORTH)  ; 
DMND  LOADLIST. DEP. EAST  -  AD0R(DMND  ITA(I). DEP. EAST); 
DMID_LOADLIST. DEP. SOUTH  -  ADOR (DM«5_UATAU). DEP. SOUTH) ; 
DMTO  LOADLIST. DEP. WEST  -  ADDS  (DMID  DATA(I).DEP.WEST)  ; 
DMTOJjOADLIST.HSG  -  ador(dmid_data7i).ksc); 

END  SET  UP  SCREEN  POINTHIS  (DMTO); 
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ROUTINE  DCHECK 

IN  (CNVTOAG)  i 

INPUT  (MWDJMtTA(I),  RETRIEVE,  CNVRT_DEM(I>,  CFROM,  CTO,  CURSOR); 

[Tills  routine  checks  for  errors  occurred  on  screen  es  s  result  of  erroneous  entry  and  teturns  value 
for  cursor  pointing  to  first  data  field  where  an  error  has  occurred;  and  an  appropriate  screen 
■essage  Is  Issued  advising  user  with  corrections) 

ERR1  -  'NUMERIC  INPUT  REQUIRED' ;  . 

ERR2  -  ' NON-NEGATIVE  INPUT  REQUIRED'; 

ERR3  -  'NO  DECIMAL  POINTS  ALLOWED'; 

ERRS  -  'INPUT  MUST  BE  X  OR  BLANC'; 

ON  CONVERSION  BEGIN;  [ON  CONVERSION  Is  s  PL/I  feature  thst  Is  Invoked  when  a  character  data  Is 
*  detected  In  a  numerical  data  field) 

DMND_DATA(I).HSC  •  BUU; 

RETURN; 

DMf D  DATAf I ) .MSG  -  ‘DATA  ENTERED'; 

CURSOR  -  A; 

IP  X  (RETRIEVE)  NX  0 

THEN  MMD_DAZA(I).MSC  -  US; 

ELSEIF  RETRIEVE  l«  (2)  •  • 

THEM; 

ELSE 

CURSOR  -  S; 

PERFORM  AKR_T0TAL_DATA_FIELD_ERROR_CHECK; 

EXITIF  [error  detected] 

CURSOR  -  6; 

PERFORM  ARR_KUBBS_DATA_FIELD  ERRORJCHBCE; 


EEITIF  [error  detected] 

MMD  MTMD.ARR. PLANT  •(*)••; 
CMVRTJ»M(X).AER.PLANT  -  0.; 

CURSOR  •  7; 

PERFORM  ARRJXrrjMLT*_FIEi_«RROR_CHECK; 
EXITIP  [error  detected] 

CURSOR  -  8; 

PERFORM  *RR_VdlMS_ntI*._FIELO_ERRORJCHBCXi 
EEITIF  [error  detected) 

CURSOR  -  9} 

PERFORM  *RE_FARMM_DdT*_FIEU)_««IOR_CHSCE; 

EEITIF  (error  detected]  . 

MWD  OdTA(I)  .AIR.MKE  *-(*)'•; 
«VrT_DEMU).ARR.HKIJL  •  0.; 

CURSOR  -  10; 

PERFORM  DEP_TOTAL_BAI*_FIEU)_1**OR_CH1CX; 
EXIT1F  (error  detected 1 
CURSOR  -  11; 

PERFORM  DEP_MORTU_MTA_FULOJBIOR_C8ICK; 
EXITIF  (error  detected] 

CURSOR  •  12; 


WtWMI  DEP_EAST_DAT*_PIKLl)_Bitfl«_CH*CX; 
glW  [error  detected  1 
CURSOR  '  13; 

PBRFORH  D»_SOCTI«JUlA_niLD_ntMR_CHRa: 
EXITIF  (error  detected  1 
CURSOR  -  14; 

FHtFCRM  DH>_«KSt_64T*_rmjD_miOR_aaCX ; 
EUT1F  [error  detected] 
W*n>_DATA(I).DEP.KH_D  -  (4)  *  •; 
CMVKTJ>Bt(I).DEF.HUJ>  •  0.; 

IF  DMU>_DAIA(I).HSG  -  'BATA  HREUD' 

THEM  CURSOR  -  4; 


DCHECK; 


9sBK**.?W? 


V 

co 

O 


PROCESS  ABJL  TOTAL_DATA_F I EU)_ERROR^CHWIK 
[this  process  checks  for  errors  on  totsl 

Get  STRING  (DHNDJ>ATA(1).ARR.  .TOTAL)  EDIT 

Ip  C0KVRTJ)BM(I).ARR.T0TAL  LT  0* 

THEN  DMNDJ*TA(I).HSG  -  tSBZl 

ELSEIF  VERIFY  <■••.  »«D_n*T*{I).AM.TOTAL)  E ft  0 

THEM  BWDJ»ATA<1>.N$G  -  E»3s 

END  AEE_TOTM/_QATA_FIEIi)_EE*OE_CHECE; 


irtlvtl  dtatfti  data  JUWl 
(CNVRT_DEM(I)  .AEE.TOTAL)  ; 


PROCESS  A8R_m»S_nATA_FIKL0_BE0»j:HEa^ 

- pfhla  nroceaa  ctaecka  For  error*  on  HUES  data  tlaWl 


G.t  STRING  (aMM»U).*tt.MIIS)  KBIT  (OWRT_DW(I).A»».»Il»S) ; 
It  COMVKT  DEH(I).AEE.KUB*S  et  0. 

THEM  DH®_nmU)-lOC  -  EER2-, 

klseif  verify  D**B_Bai*U).«R.m«s)  H° 

THEM  OWB  BATACH.KSC  ■  ERR3; 


CKO  ARR_rUS»S_DATA_FIEU>_ER»0«_CHBCK ; 


PROCESS  ARR_GCT_DATA_FIELD_ERROR_CHECK 

[This  process  checks  for  errors  on  CGT  date  field] 

Get  STRING  (DHND_DATA( I ) .ARR.CGT)  EDIT  (CHVRTJ)EM(I) .ARR.CGT) ; 

IP  CONVRT  DEM(I). ARR.CGT  LT  0. 

THEN  0Mn>__0ATA(I).MSG  -  ERR2; 

ELS  El  F  VERIFY  DMID_MTA<  I).  ARR.CGT)  E£  0 

THEN  DMn>_DATA(I).MSG  -  ERR3; 

END  ARR_CCT_DATA_PIELD_fflROR_CHECK; 

PROCESS  A8i_VAINS_DATA_FIELD_ERR0R_CHECK 

(This  process  checks  for  errors  on  VAINS  data  field] 

Get  STRING  (ERMD_DATA(I).ARR.VAINS)  CUT  (CNVRT_D«(I).ARR.VAINS) 

IP  CONV*T_DBH(I).AAR.VAIHS  LT  0. 

THEN  DMND_DATA(I).HSC  >  ERR2 ; 

ELS  El  P  VERIFY  Ot*®_DAIA(I).AER.VAINS)  fiO 

THEN  DW(D_DATA(I).NSG  -  HUD; 

END  ARR_VAINS_DATA_PIELD_BROR_CHECR-, 
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PROCESS  ARR_FAR!«J>ATA_FIELD_ERROR_CHECK 

(This  process  check ■  for  errors~on  FARMM  data  field 1 

Cet  SIRING  (DM(D_DATA(I).ARR. FARMM)  EDIT  (CHVRT_DEM(I).ARR, FARMM); 

IF  CONVRT_DEM( I ) . ARR . FARMM  LT  0. 

THEN  Dt«D_DATA(I).MSG  •  ER&2; 

ELSEIF  VERIFY  Dt*fl>_DATA(I).ARR.FARfVO  E£  0 

THEM  DMIDJDATA(I).HSG  -  ERR3; 

END  ARR_FARMH_nATAJ'IELD_HUtDRjCHBCK; 

PROCESS  dep_total_data_fieui_erros._checi: 

fThls  process  checks  for  errora~oo  total  departure  demand  data  field] 

Cet  STRING  ( DKNDJXATAC I ) .DEP .TOTAL)  EDIT  (OWRT  DEM(I).DEP.TOTAL) ; 

IF  CON VRT_DEM(I). DEP. TOTAL  LT  0. 

THEM  DMHD_DATA(I).MSG  *  ERR2; 

ELSEIF  VERIFY  DHiD_DATA(I) .DEP. TOTAL)  E&  0 

THEM  DMMD_DATA(I).HSG  •  ERR3; 

END  DEP_TOTAL_DAT  A_F  I  ELD jaR0R_CHKK ; 


noz-z 


process  oep_mo&th_data_pield_emor_cueck 
- irw.»  pt^ce..  check,  for  error,  oo  NORTH  «Ut.  fiwoi 

Get  STRING  (0^_BAIA(I).MP.N0«mO  EBIT  (CNVRT_BE*U>.BEP.NORTH) 

IP  CON  VRT _GEM( I ) . BEP . NORTH  W  0. 

THEN  DMND_DATA(I).KSC  “  *»Hi 

ELSE1P  VERirr  I»«D_BkIA(I).B«P.NORTH)  *a<> 

THEN  D»*n>_BATA(I).HSC  “  m3; 

MD  DEPJ»R™j)XTA_rt*lD_«**BN_CH*CR'l 


PROCESS  DEP_EAST_n*TA_PIKU)_E»lOR_CHECT 

- (Thl.  proceee  check,  for  error.  o«  EAST  tot* 

Gee  STRING  (BNtB_BATA(I)-B*P.EAST)  EBIT  <CmT_OW(I).B«P.BAST>; 

If  cONVRTJjmtD.DW.MST  !£  °* 

THEN  DWDJ»ATAlI).HSG  -  BU; 

BLSEir  min  »«d_bataU).bm-sast)  «a° 

then  dnn»_baia(i).hsc  -  «**i; 

go  DEP__lAST_BATA_rl  ILB_*R*B«_CH1CE ; 


t 


PROCESS  DEP_SOUTH_DATA_FIELD_ERROR_CHEGK 

(This  process  checks  for  errors  on  SOUTH  date  field] 

Get  STRING  ( DHND_DATA( I ) . DEP .  SOUTH )  EDIT  (CNVRTJ>EH(I).DEP. SOUTH); 

IP  CONVRT_DEH(I).DEP.SOUTH  LT  0. 

THEN  DHND_DATA(I).HSG  -  ERR 2 ; 

ELSEIF  VERIFY  (•.*,  Dt*0>_DATA( I ) . DEP . SOUTH )  E£  0 
THEN  DMID_DATA(  I )  •MSG  •  ERR3; 

END  DEP_SOUTH_DATA_FIELD_aROR_CHECR; 

PROCESS  DEP_WEST_DATA_FmJD__ERROR_CHRCR 

(This  process  checks  for'errors  on  NEST  data  field] 

Get  STRING  (DHND_DATA(I). DEP. WEST)  EDIT  (CMVRT_DEM(I).DEP.UEST); 

IF  CONVRT_DEM( I ) .DEP .WEST  LT  0. 

THEN  DMND_DATA(I).NSG  -  ERR2; 

ELSEIF  VERIFY  Dt*ID_DATA(  I )  .DEP.WEST)  IJO 

THEN  DNn>_DAU(I).MSG  •  ERR 3; 

END  DEPJWEST_DATA_FIELD_BROR_CHECK; 
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ROUTINE  DVALIO 

IN  (CNVTOAG) i 

INPUT  (  DMND_DATA( I )  .RETRIEVE, CNVRT_DEM(I  >,CFROH, CTO, CURSOR) ; 

(This  routine  performs  dots  validation  checks  on  screen  entries  and  returns  value  for  cursor 
pointing  to  first  Invalid  data  field.  Also,  an  appropriate  screen  eessage  Is  Issued  advlslog  user 
with  corrections] 

♦THREE  -  3; 

DMfDHW  -  ' NUMBER  OF  AIRCRAFT  HOST  NOT  EXCEED  99’ ; 

TTLHtR  -  'TOTAL  DOES  NOT  EQUAL  SUN  OF  INDIVIDUAL  ENTRIES'; 

IF  RETRIEVE  NE  <2)  • 

THEN  PERFORM  RETEIEVE_DEMAND_DATA_FROM_DEMAND_LOG; 

CURSOR  -  6; 

IF  CNVRT_DEM(I).ARR.KUBES  GT  99.0 

THEN  DNIDJMXA(I).ISC  -  DMDBR; 

ELSE 

DMID  DATA(1).ARR.KUBBS  -  SDBSTR(F(CNVRT  DEM(I).ARR.nmiS.iTHR£E>,l,3)  j 
CURSSh  -  7; 

IF  CMVRTJXH(I).ARR.CCT  GT  99.0 

THEM  D**n>_DATAU).KSC  -  DMNDBUI; 

ELSE 

DMID  DATA(I).ARR.CGT  -  SURSTR(F(CNVRT  DEMCD.ARR. 

CCT,fTHREE)l,3) 

CURSOR  -  8; 

IF  CNVET_DEH(I)»ARR.VAINS  GT  99.0 
THEN  DMU>_DATA(  I)  .MSG  -  DMtDERR; 

ELSE 

DMID_DATA( I ) . ARE. V AIMS  -  SURSTR(F(CNVRTJMM( I )  .  ARE.  VAINS ,  tTIKEE)  ,1,3); 
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CURSOR  *  9;  „„  „ 

1?  CHVRT_DRM(I)  .ARR.FARMM  GT  99.0 

THEN  DI«D_DATA(I).MSG  -  DI9IDERR; 

PlCB 

-  MID  DATA (I). ARR.FARMM  -  SUBSTR(F(CNVRT_DEM(I).ARR. 

FAR»fl,*THREE),l,J) 

CURSOR  '  11; 

IF  CHVRT__DEM(I) .DEP .NORTH  GT  99.0 

them  dwmd_data(i).hsg  *  dmmderr ; 

ELSE 

— “  OMQ)  nATA(I). DBF  .NORTH  -  SU#STRCF(CMVRT_DEM(1).DEP. 
NORTff.tTHREE)  ,1,3)  i 
CURSOR  -  12; 

IF  CMVRT^DEMd) .DEP.EAST  GT  99.0 

Tim  DMiD_DATA(I).HSC  -  DMMDERR; 

RLSR  DMID  DATACI)  .ARR.FARJ9I  -  SUBSTRdCCNVRT 
dHTi) .  arrTfarmm  .  Storke)  .1 . 3) ; 

CURSOR  •  13; 

IF  CMVRTJMDI(I)  .DEF.SOUTH  CT  99.0 

THEM  DMKD_nATA(I).MSG  -  DMIDERR; 

ELSE 

- HMD  DATA(l). DEF.SOUTH  -  SURSTRCFCCMVRT 

DEM(I).0RF.  SOUTH. <THR1R).  1,3); 

CURSOR  *  14; 

IF  CMVRT  DIM(l)  •DEP.HBST  CT  99.0 


i 

I 

i 
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THEN  DMID_DATA(  1 ) .MSG  -  DMiDERR; 

ELSE 

DKND  DATA(I) .DEP.UEST  •  SU»STR(P(CHVRT 
DEH(I) .  DEP.UEST,  tTHREE)  ,1,3) ; 

CUE SOI  -  5; 

IP  FLOOR ( CM VRT  DEM(I). ARE. TOTAL)  HE 

FLOOR  (CHVET~ DEM(I)  .AEE.KUBBS  + 

CUVET  DEHdT.ARE.CGT  +  CHVRT 
DEKdT.ARE.VAlHS  +  CUVET 
DEM(I). ARE. FARM!) 

THEN  DMiD  DATA(I)  .KSG  - 

TTLESEi 

ELSE 

DttCD  DAIA(I). ARE. TOTAL  - 
SUBSTE(F(CHVET 

DEM(I)  .ARE. TOTAL, iTUEEE)  ,1,3)  ; 

CURSOR  -  10; 

IF  FLOOR(CMVRT 

obUD.dsp.totu.)  HE 

FLOOR (CNVET 

DEM(I).DEP. NORTH  ♦  CNVET 
DEM(1).DEF.EAST  +  CNVET 
DEM(1).DEF. SOUTH  ♦  CNVET 
DEN(l). DEP.UEST) 

THEM  DMID  DAIA«).HSC  - 
TTLfiSk ; 

ELSE  DMID 

DAIACD.DEP. TOTAL  - 
SUBSTRCFC  CNVET 
DHM(l).  DBF.  TOTAL,  *IHR 
EE) ,1,3); 


IF  DMND_DATA(I).HSG  EJ  'DATA  ENTERED' 
THEM  CURSOR  -  A; 


END  DVAUD; 
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PROCESS  RETRIEVE_DEMAND_DATA_FROM_DEMAND_LOC 

(This  process  retrieves  data  fro*  deeaad  log] 

INDEX  -  FLOOR  (CPROM/IOO.O); 

ALPHA  -  ( CPROH  -  100. ‘FLOAT ( INDEX) )/60.0 ; 

NEXT  -  FLOOR(CTO/100.0)j 

l prorate  hourly  demand] 

CNVRT.DEM(I)  .ERR.  EUR  AS  -  FLOAT(FLOOR((1.0  -  ALPHA)  *CNV10AG.  TABLE  ( INDEX  ).KU  BBS  +  ALPHA  *  CNVTOAC. TABLE 
( NEXT). KU BBS  +  0.5)) i 

CNVRT.DEMCD.ARR.CGT  •  FIOATCFLOORCl.O  -  ALPHA)*CNVTOAC .TABLE ( INDEX) .CCT  +  ALPHA  * 

CNVTOAC. TABLE(NEXT)  .CCT  +  .5)); 

cnvrt.demCD.arr.vains  -  floatc floorCCi.o  -  alpha)*cnvtoac.tablecindex).vains  +  alpha  * 

CNVTOAC. TABLECNEXT)  .VAINS  ♦  .5)); 

CNVRT.DEMCD.ARR.FARm  -  FIO AT ( FLOOR (C  1.0  -  ALP  HA  )*CNV70AC.  TABLE! INDEX). FARM!  A  ALPHA  • 

CNVTOAG. TABLE(NEXT). PAHm  ♦  .5)); 

CNVRT.DEM(l)  .DEP .NORTH  -  FL0AT(FL0OR((1.0  -  ALPHA  )*CNVTOAC.  TABLE  ( INDEX). NORTH  ♦  ALPHA  * 

CNVTOAC. TABLECNEXT)  .NORTH  +  .5))j 

CNVRT.DEMCD.DEP.EAST  -  FLOATC  FLOOR  ((1.0  -  ALP  HA)  *CKVTOAG.  TABLE  (INDEX).  EAST  +  ALPHA  • 
CNVT0AG.TA1LE(NEXT).EAST  +  .5)); 

CNVRT.DEM(l). DEP. SOUTH  -  FLOATC FL00R(C  1.0  -  ALPHA)*CNV10AG. TABLE!  INDEX)  .SOUTH  +  ALPHA  * 

CNVTOAC. TABLE(NEXT) .SOUTH  ♦  .5)); 

CNVRT.DEMCD.DEP.UEST  -  FLOATCFLOORCCI.O  -  ALPHA)  »OCVTOAG.  TABLE!  INDEX).  WEST  ♦  ALPHA  * 

CNVTOAC. TABLECNEXT). WEST  ♦  .5)); 

CNVRT  DEMC1). ARE. TOTAL  -  CNVRT  DEM(l) .ARE.RUBBS  +  CNVRT  DEMCI) .ARR.CCT  ♦  CUVET  DCMC D .ARE. VEINS  +  CNVRT 
DEMClT.ARR.FARm; 

CNVRT_DEM(I). DEP. TOTAL  -  CNVRT  DEM(l) .DEP. NORTH  *  CNVRT  DEMCI). DEP. 

EAST  +  CNV*T_DEM ( I ) . DEP . SOUTH  7  CNVRT_DEM(I). DEP. WEST;  ~ 

RETRIEVE  -  (2 )  • 

END  RETRIEVE  DEMAND  DATA  FROM  DEMAND  LOO; 


2.12  Ordered  List  of  Configurations  Screen 

The  processing  for  the  Ordered  List  of  Configurations  Screen  is 
presented  on  pages  2-311  to  2-331. 
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[•••LOCAL  VARIABLES***] 

I NT  CDATA( 2)  (Integer  variable  containing  Index  of  operating  configuration  for  both  current  and  forecast 
conditional 

CHR  MSG_DATA(2)  (character  variable  of  length  80  containing  acroen  neaaage  for  both  current  and  forecast 
ordered  Hat  of  conf lguratlona  acreena] 

I NT  C0UNT(2)  [integer  variable  containing  DUO  bar  of  eligible  configurations  for  both  current  and  forecast 
conditional 

1NT  SWITCH! 2)  [this  variable  la  used  for  snitching  betimes  current  and  forecaat  acreena.  Initialised  to 

(2.1)1 

STRUCTURE  LIST(2) 

CROUP  conf(73)  [up  to  71  configurational 

PLT  CAPACITY  [capacity  of  each  configuration! 

I  NT  INDEX  [index  associated  for  each  configuration  used  for  table  look  up) 

ENPSIEUCTURE; 

BITS  MID1ND  [21  bit  variable  with  1  Indicating  r unsays  that  require  coordination  with  MIDWAY  airport) 
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SS2nrar«SS“!3lSS«..  one  for  each  dot.  field  on  .cr.en  used  by  panel  -«,.t  for  loading  end 
unloading  to  and  fro.  screen) 


PTH  time  (pointer  for  envlrooeent  date  field) 

PTH  TOT  MS  (pointer  for  percentage  of  arrivals  date  field) 


PTH  number  (pointer  for  n unbar  of  configuration,  data  field) 

PTH  SCROLL  (pointer  for  scroll  data  field) 

CROUP  CONFIC(73) 

PTH  SELECT  (pointer  for  configuration  selection  data  fleldl 
PTH  RANK  (pointer  for  rank  data  field) 

PTK  ASRO)  (pointer  for  arrival  rtweye  data  field) 

PTH  0EP(4)  (pointer  for  departure  runeays  data  field) 

PTH  CAPACITY  (pointer  for  capacity  data  field) 

PTH  REMARKS  [pointer  for  rsMrfca  data  field) 

PTH  MSG  [pointer  for  screen  eeaaaga  data  field) 

MTS  PENCE  [32  bit  variable  as  prescribed  by  IMS  annual.  Initialised  to  string  of  (32)  1  t) 

EHOSTRUCTUSE; 
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ROUTINE  ORDER 

IN  (PRCARR,  INFORM,  CNFGREQ,  RWYEQP,  MIDPUG) ; 

INPUT  (CONFLST,  CONFIND,  RSTATUS,  I);  t  , 

- (This  routine  invokes  ordered  llet  of  conf iguretione  screen  for  both  current  sod  torecsst 

environments] 

OAI.L  OSETUP ; 

IN  (PRCARR,  INFORM,  CNFCRQ,  RWYEQP,  MIDFUG) 

INPUT  (CONFLIST,  UST,  COUNT); 

JXhls  routine  sets  up  infometion  on  ordered  list  of  conf igurstlons  screen] 

CDATA  -  CONFIND; 

MSG  DATA(l)  -  CONFLIST(l).MSG; 

MSC_DATA(2)  -  CONPLIST(2).MSG; 

REPEAT  UNTIL  (RSTATUS  NE  PF12); 

CDATA(I)  -  CONFIND(I); 

CONFLIST(I)  .MSG  -  NSG_DATA( I ) ; 

I  -  SMITCH(I);  (switch  between  two  screens) 

REPEAT  UNTIE  (RSTATUS  NE  P»); 

CALL  OSCREEN; 
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N> 


IN  (COHFLIST(I),  LIST(I),  COUNT(I)); 

INPUT  (CDATA(I) ,  RSTATUS ) j 

I This  routine  controls  ordered  list  of  coof lgurstloos  screen] 

ENDREPEAT; 

ENDREPEAT; 

LOOP;  (J  -  1  To  21 

IP  SUBSIS(CONPUSTU).NSO,1.1J>  £2  ' DATA  ENTERED1 
THEN  CONPUm(J)  -  CDATA(J) ; 

ENPLOOP; 

END  ORDER; 
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ROUTINE  OSETUP 

IN  ( PRCARR ,  INFORM,  CNFGRQ,  RUYEQP,  KID  FLAG,  COUNT); 

INPUT  (CONFLST,  LIST,  COUNT); 

I  Tills  routine  sets  up  lnforaatloa  on  ordered  list  of  configurations  screen) 

LIST  -  INFORM,  BY  NAME; 

LOOP;  (K  “  1  to  2]  [coapute  percentage  of  arrlvalsl 
IF  PRCARR(K)  .TOTARR  +  PRCARR OO.TOTDEP  “  0.0 

THEN  ATOTPRC  ■  .3;  (default  value  of  arrival  percentage  Is  .3  If  no  deeaod  Is  specified) 
ELSE  ATOTPRC  -  PRCARR (K). TOTARR/ ( PRCARR (K). TOTARR  +  PRCARR(K).TOTDEP); 

CONFLST(K).TOT_ARR  -  SUBS1R(F( ATOTPRC  *100.0,  *THREE),1,3); 

CALL  OSORT; 

INPUT  (UST(R)); 

[This  routine  aorta  list  of  configurations  based  on  capacity] 

COUNT(K)  ■  0; 

LOOP;  IN  -  1  to  73) 

P  -  LIST(R).CONP(N).INDEX; 

IF  P  LT  999 


THEN 
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PHIPORM  SCRREN_PARAKETERS_SET_UP; 
(ut  up  parameters  on  screen] 


PERFORM  FLAG_SETTING; 

[ ae t  up  appropriate  Hsrs] 


ENDLOOP; 

CONFLST  00 -NUMBER  -  SUBSTR(F(PLOAT(COUKT(E))  ,»THREE)  .1.3) 
ENDLOOP ; 

END  OSETUP i 


! 


I 

I 
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PROCESS  SCREEN  PARAMETERS  SET  UP 

[This  process  sets  up  parameters  on  ordered  list  of  configurations  screen) 

C0UNTOO  “  COUNTOO  -V  1;  [Increment  configuration  counter) 

CONFLST(K)  .CONFIG  (COUNT  00  )  *ARR(1)  -  CNFGRQ(P)  .ARR  RWY(l); 

CONFLST(K)  ,CONFIG(COUNT(K) )  . ARR(2 )  -  CNFGRQ(P)  .ARR~RtfV(2)  ; 

CONFLST(K)  .CONFIG(COUNT(K)  )  .ARRC3)  -  CNFCRQ(P)  .ARR"RWY(3)  j 

conflstoo .config(count(k) ) ■dep(i)  -  cnfcrq(p).dep_rwy(D; 

C0NFLST(K).C0NFIC(C0UNT(K)).DRP(2)  *  CNFGRQ( P )  . DEP_JtWY (  2  ) ; 
CONFLST(K).C0HFIG(C0UHT(K)).DEPO)  -  CNFGRQ(P)  .DEP  RWY(3)  ; 

CONFLST(R) .CONFIG(COUNT(K) ) «DEP(4)  “  CNFGRQ(P).DEPJUrt(4)j 

CONFLSTU).CONPIG(COUNT(lO)  .CAPACITY  -  SUBSTR(PfLIST(lO.CONPOO  .CAPACITY, tFOUR)  ,1,4)  ; 
END  SCKEEN_PARAMETERS_SET_UP; 
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PROCESS  FLAG  SETTING 

Tfiiis  process  determines  warning  flags  for  ordered  list  of  configurations  screenl 

FLAG  -  'O'B; 

HIRLIND  -  "B; 

LOOP;  1L  ■  1  to  12]  {determine  runways  on  which  H1RL  is  out) 

1£  RWYEQPOO  .RUNVAY(L)  .HIRL  NE  (2)  *  1 

THEN  HIRLIND  -  HIRLIND  CONCATENATE  '1'  B; 

ELSE  HIRLIND  -  HIRLIND  CONCATENATE  'O'  B; 

ENPLOOP; 

HIRLIND  -  HIRLIND  CONCATENATE  HIRLIND; 

MESSAGE  -  (27)' 

IF  PRCARR(K).CONF(P).BNFRCNT  LT  0.  [if  airport  is  saturated) 

THEN 

MESSAGE  -  'SATURATED'; 

FLAG  -  'l'B; 

J_f  MIDFLAG(K)  NE  (2)  '  ')  AMD  ( (CNFGRQ(P)  .ID  AND  MININD)  GT  0) 

THEN  IF  FLAG  EJ  'l'B 

THEN  MESSAGE  -  MESSAGE  CONCATENATE.  'MIDWAY* ; 

ELSE 

MESSAGE  -  'MIDWAY' ; 

FLAG  -  'l'B; 

IF  (CNFGRQ(P).IO  AMD  HIRLIND)  NE  (24)  'O'B 
THEMIP  FLAG  'l'B 

THEM  MESSAGE  -  MESSAGE  CONCATENATE  'DAT  ONLY'; 

ELSE  MESSAGE  -  'DAT  ONLY'; 

END  FLAG  SETTING; 
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! 


K3 


\ 


routine  osort 


INOUT  (LlST(K)) ; 

- “lThU  routine  sort*  configuration* 


ll*c  on  capacity; 


Shell'*  Method  1(  used] 


H(l)  *  36; 

H(2)  *  18; 

HU)  -  9; 
h(*>  -  5; 

H(5)  -  3; 

H(6)  -  1; 

LOOT;  (M  *  1  to  6) 

lOOP;  IJ  -  (HOO+1)  to  731 
1  -  J  -  H(M); 

ip  LmuO.coKrCJJ-CAMCinr  ct  iiST(K>-coM,m-CAPACm 


THEN 


TEMPI  *  UST(l).CONPCl) .CAPACITY; 

UST(K).COHr(X).IH»X  "  UST(E).COWF(I+H(H)).l*um,, 
LIST(K) ,CONF(I-HKH) ).CAPNCm  ; 

UST(E).C0«P(I+«(H)).1HW*  "  TBMP2; 

1  -  I  -  H(H); 


IF  I  CT  0 
THEN 


I 

t 


REPEAT  WHILE  ((I  CT  0)  AND  <LIST(K).CONFU+U(M)). CAPACITY  CT  L1ST(K). 

cokpTT)  .caHCCity))  i 

TEMPI  -  UST(K).CONFU). CAPACITY: 

TEMP 2  -  LXST(K)  .CONF(I) . INDEX; 

USTOO.CONP(I). CAPACITY  -  UST(K).CONF(I+«(M)). CAPACITY; 
L1ST(K).C0NP(I). INDEX  -  LIST(K) .CONP(I+tt(M) ) . INDEX ; 
LIST(K).CCNF(I+H(H)).CAPACITY  -  TEMPI; 

UST(K).CONF(tHi(H)). INDEX  -  TEMP2  ; 

1  -  I  -  H(M); 


BHDREPEAT 
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of 


routine  o screen 

IN  (CONCLSTU).  USTU),  COUNT(I); 

ordered  ll.t  of  conf  igur.tlon.  .croon] 

n*  PNAME  I  character  v.rlabl.  of  length  8  containing  naan  of  DMS  ponol  InlUaUrod  to  •OUST'. 

—  *****  p^«i  that  control,  ordorod  li.t  of  configuration,  .croon] 

INT  CURSOR  1  Integer  v.rl.hlo  containing  curaor*.  po.ltloo  on  .croon 1 

BITS  DH(115)  18  bit  varlabl.  of  dot.  auk.  >“»d  In  MB] 

INT  CNVT_SCROLL  [Integer  value  of  acroll  data  field] 

structure  BLANK  [Thl.  .tructur.  1.  uiod  In  con Junctlon  -lth .trolling  function  It  contain,  data 
-  alallar  to  C0HF1ST  .tructur.  that  are  blank) 

CHR  SELECT  [length  1] 

CW  RANK  l length  2] 

CHR  ARR(l)  1 length  3) 

CHR  DEP(4)  [length  3] 

CHR  CAPACITY  [length  5] 

CHR  REMARKS  (length  27] 

ENDSTRUCTURE; 

perform  s  et_up_screen_permanent_pointers_(ordir) 1 

PERFORM  SCREEM_FR0CRAH_1MITIALIZATI0M; 

repeat  uhtil  (rstatus  ne  ENTER); 

PERFORM  SCREEN_SCROLL; 
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PERFORM  DISPLAY_EAN£L; 
It  RSTATUS  E£  EA1 
THEN  stop; 

IE  RSTATUS  NE  ENTER 


THEN; 

ELSE 


DM  -  FLODEE; 

DH(1)  -  EUNUCH; 

9M(11S)  *  EUNUCH; 

CALL  OCHECK; 

IN  (CH»T_S«OLL,  L,  N,  aWXT<l»; 

INPUT  (COHFLST(I),  CURSOR); 

[This  routlos  checks  for  errors  occurred  oa  screen  as  a  result  ol  an  erroneous 
entry  and  returns  value  lor  cureor  pointing  to  first  data  field  where  an  error 
has  occurred;  sad  an  appropriate  screen  aeaeage  la  Issued  advising  user  with 
correctional 

IF  CONELST(l).MSC  HE  ’DATA  ENTERED' 

THEN 

DH(CURSOR)  -  EUNUCH; 

CNVT_SCROLL  •  0; 

ELSE 

CALL  OVALID; 

IN  (L,  H,  COUNT(I)  ) ; 


t  a 
I 

L.O 

ro 


INPUT  (CONFLST(I),  CURSOR); 

[This  routine  performs  data  valldatloo  checks  on  screen  entries 
and  returns  value  for  cursor  pointing  to  first  invalid  data 
field*  Also,  an  appropriate  screen  aessage  is  issued  advising 
user  with  correctional 

IF  CONFLSKD.HSG  NR  ’DATA  ENTERED* 

THEN 

DM (CURSOR)  -  PLDH1GH; 

CNVT_SCRQLL  -  0; 

CALL  0 VALID; 

IN  (LIST(I),  L,  N,  CONPLST(I) ) ; 

IKOOT  (CDATA(I)); 

(This  routine  locally  update*  configuration  lndax 
paraaeter] 

CONPLSTCD.MSC  •  'DATA  ENTERED  AT  'CONCATENATE  GKT; 

CONFLST(I)  .SCROLL  -  (4)  ■  '} 

LOOP;  [P  -  1  to  731 

CONFLST(I). CONF(P). SELECT  -  '  '; 

ENDUP  P; 

ENDREPEAT 


UNO  0 SCREEN 
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PROCESS  SBT_UP_SCREENJ>ERMANENT_POINTERS_( ORDER) 

(This  procat*  acts  up  screen  pointer!  for  permanent  variables  for  DHS  vise ] 

ORDER_LO ADUST. TIME  -  ADDR(CONFLST(  1 )  .TIME)  ; 

ORDER  LOADUST.TOT  ARE  -  ADDR(COHPLST(I).TOT  ARE); 

ORDERTDADUST.NUMSER  -  ADDR(COHPLSTCl). NUMBER); 

ORDER  LQADUST •  SCROLL  -  ADDR(COHFLST(I)  .SCROLL) ; 

ORDER_LOADLIST.MSG  -  ADOR(CONELST(I )  .MSG)  ; 

END  SETJJP_SCREEN_PERMANENT_SCREEN_(  ORDER  ) ; 

PROCESS  SCREEN_PROGEAM_INITlALIZATION 

[This  process  performs  a  maber  of  variable  initializations  for  screen  routine] 

IF  COUNT ( I )  EC[  0  (if  no  configuration  is  eligible  generate  message) 

THEN  CONFLST(I).HSC  *  SUBSTR(CONPLSTU) .MSG.  1.20)  CONCATENATE  1  »**  NO  ELIGIBLE 

CONFIGURATION  S  *«*' ;  - 

DELTA  “  M1N(10,  COUNT(I));  [up  to  10  Configurations  appear  on  screen  at  a  time] 

NEXT  *  DELTA;  (set  up  scrolling  function  parameters] 

INDEX  -  1; 

CNVT  SCROLL  -  0; 

DM  -- PLDDEF; 

DM(US)  "  FLDH1CH; 

[set  up  other  parameters] 

CONPLST(I). SCROLL  -  (*)'  '; 

LOOP;  IP  -  1  to  73] 

CONFLSTf I >  .CONF(P). SELECT  -  *  •; 

ENDLOOP; 

CURSOR  -  A; 

END  SCREENJPROGRAM_INITIALIZATIOH; 
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PROCESS  SCREEN_SCROLL 

(Thi*  proceee  performs 


scrolling  function  for  ordered  llet 


of  conf Iguretlooe  ecreenl 


INDEX  -  INDEX  +  CNVTJCROLL; 
NEXT  *  NEXT  +  CNVT_S(XOLL; 

IF.  NEXT  LT  DELTA 

THEN 


L  -  1 

M  -  MAX(1,  NEXT); 

NEXT  -  K; 

INDEX  “  N  -  DELTA  +  1; 

ELSEIF  INDEX  CT  COUNT(I)  -  DELTA  +  1 
THEN 

M  -  COUNT(l); 

L  -  KIN(CQUNTCI) .INDEX) ; 
INDEX  -  L; 

NEXT  -  L  +  DELTA  -  ii 


ELSE 

- H  -  NEXT  ; 

L  -  INDEX; 


X  -  0; 

IP  (M  LT  10)  AND  COUNT  GT  9 

THEN  REPEAT  WHILE  (KLT10-N); 


e  -  x  ♦  X; 

DM<U»K-6) 


•  FLDDARK; 


order  loadust.con»(x).eakx  - 
ORDER- LOADLIST .  CONE  (  X).  SELECT 
ORDER- LOADUST . CONFIX)  .ARRU) 
ORDER-WXDUST.CONFCX) -ARRC2) 


AMR(MLANE.RANX) ; 

-  ADDRCELANX* SELECT); 

.  m)or(blank.arr(i)); 
•  addrCelank.arr(z)); 
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ORDER  LOAD  LIST.  CONF(K)  *ARR(3)  -  ADDR(BLAKR.ASR(3))i 
ORDERlOADLIST.CONF(K).DBPU)  -  ADDR( BLANK. DEP(l)); 
ORDER  LOADLIST.CONF(K).DEP(2)  -  ADDR(BLANK.DEP(2)  )  ; 
ORDERtOADLIST.CONP(K).DEP(3)  -  ADOR(BLANK.DEP(3)); 
ORD£R”LOADLIST.CONF(K).DEP(4)  *  ADDR( BLANK. DEP(4)); 
ORDER~LOADUST.CONF(K). CAPACITY  -  ADOR( BLANK. CAPACITY); 
ORDERJjOADUST.CONF(K)  .REMARKS  -  ADDR(  BLANK.  REMARKS) ; 

ENDREPEAT; 

REPEAT  WHILE  (COUNT(I)  GT  0);  (J  -  L  to  M] 

K  •  K  +  1; 

IF  CDATA(I)  E£  LisT(l).CONF(J).IMDEX 
THEM 


LOOP;  tP  -  l  to  Ul 

DM(11*K  +  P  -  7)  -  PLOUGH;  (highlight  operating  configuration! 


ENDLOOP; 

ORDER_LOADLIST.CONF(K).RANK  -  ADOR(CONFLST(I).CONF(J).RANK); 

ORDER  LOADLI ST. CONF(K). SELECT-  ADOR(CONPLST( I ) .CONF< J ) . SELECT) ; 
ORDER"LOADLIST.CONF(K).ARR(1)-  ADGR(COMFLST(l).CONF(J),ARR(l)); 
ORDER- LOADLI  ST. CONF(K).ARR(2)-  ADDR(CONFLST(I)  *CONF(  J)  «ARR(2)) ; 
ORDER~LOADLIST.CONF(K).ARR(3)-  ADDR(CONFLST(I).COKF(J).ARR(3)); 
ORDER  LOADLIST.CONF(K).DEP(1)-ADOR(CONFLST(I).CONF(J).DEP(1)); 
ORDER— LOADLIST.CONF(K).DEP(2)-  ADOR<CONFLST(I).COHF(J).DEP(2)); 
ORDER— U)ADLIST.CONF(K)«DEP(3)-  ADCKCOHFLST<I).CONF(J).DEP(3)); 
ORDER” LOADLI  ST. CONF(K).DEP  (A  )»  ADOR(CONFLST(I).CONF(J).DEP(A)); 
ORDER  LOADLI  ST. CONF(K)  .CAPACITY-ADDR(COHFLSTd)  .CONF(J)  .CAPACITY) ; 
ORDER— LOADLIST.CONF(K).R£MARKS-ADDR(CONFLST(I).COHF(J). REMARKS); 

ENDREPEAT; 


LIZ- 


REPEAT  WHILE  (K  LT  10)  j 
K  -  K  +  1; 

DM(U«K  -  6)  *  PLDDARK; 

ORDER  LOAD LIST. CONF(K)  .RANK  -  ADDR  (BLANK.  RANK )  ; 

ORDER  LOADLIST.CONF(K)  .SELECT  -  ADDR  (BLANK.  SELECT)  j 
ORDER~LOADLIST.CONF(K).ARR(l)  -  ADDR  (  BLANK  .ARR(l)); 
ORDER~LOADLIST.CONF(K).ARR(2)  -  ADOR(BLANK.ARR(2)); 
ORDER_LOADLIST.CONP(K).ARR(3)  -  ADDR (BLANK. ARR( 3)  )  ; 
ORDER— LOADLIST.CONP(K) .DEP(l)  -  ADDR( BLANK. DEP(l)); 
ORDER  LOADL1ST *CONF(K).DEP(2)  -  ADDR(BLANK.DEP(2)); 
0RDER_L0ADLIST.C0NF(K).DEP(3)  -  ADDR  (BLANK.  DEP(3)  )  ; 
ORDER  LOADL1ST .CONP(K) «DEP(4 )  -  ADDR( BLANK. DEP(A) )  ; 
ORDER- LOADLIST.CONF(K) .CAPACITY  -  ADOR( BLANK. CAPACITY) 
ORDER* LOADLIST. CONE (K)  .REMARKS  *  ADDR( BLANK. REMARKS )  i 

EN PREP EAT; 

END  SCREENSCROLL; 
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ROUTINE  OCHECK 

IN  (CNVTJ5CROLL,  L,  M,  COUNT(I)); 

INPUT  (CONFLST(I),  CURSOR); 

(This  routine  checks  for  errors  occurred  on  screen  as  a  result  of  an  erroneous  entry  and  returns 
value  for  cursor  pointing  to  first  data  field  where  an  error  has  occurred;  and  an  appropriate 
screen  Message  is  issued  advising  user  with  corrections] 

X_OR_BLANK  -  'X  ' 

ERR1~-  'NUMERIC  INPUT  REQUIRED'; 

ERR3  -  'NO  DECIMAL  POINTS  ALLOWED' ; 

ERR5  -  'INPUT  MUST  BE  X  OR  BLANK'; 

ON  CONVERSION  BEGIN; 

CONFLST(I)  .MSG  -  SRI; 

RETURN; 

CONFLSTCI) *MSG  -  'DATA  ENTERED'; 

CURSOR  -  *; 

Get  STRING  (CONFLSTCI). SCROLL)  EDIT  ( CNVT_SCROLL) ; 

IF  VERIFY  COM FLIST(I). SCROLL)  E£  0 

THEM  CONFLST(I).NSG  -  ERR 3 ; 

ELSEIF  (L  EQ  1)  AND  (COUNT  GE  10) 

THEM  K  -  10  -  M; 

ELSE  K  -  0; 

REPEAT  WHILE  (CONFLST(I).MSG  BJ  'DATA  ENTERED');  l J  -  L  to  M| 

CURSOR  -  11»K  ♦  S; 

K  -  K  ♦  1; 
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II  VERiri(CON?LST(n.CONF(J). SELECT, 
THEN  CONPLST(I) .MSG  -  ERR5; 

ENDREPEaT; 

IE  COMPLST(I) .MSG  E£  'DATE  ENTERED' 

THEN  CURSOR  -  4; 

END  OCKECK; 


,OR_BLANK)HE  0 
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ROUTINE  0 VALID 

IN  (L,  M,  COUNT(l)); 

INPUT  (CONFLST(I) ,  CURSOR); 

I  This  routine  per forms  data  validation  checks  on  screen  entries  and  returns  value  for  cursor 
pointing  to  first  Invalid  data  field.  Also,  an  appropriate  screen  aessage  is  Issued  advising  user 
with  corrections] 

ERRSEL  -  'SELECT  ONLY  ONE  CONFIGURATION1; 

CONFLST(I).MSG  -  'DATA  ENTERED'; 

FLAG  -  0; 

IF  (L  1)  AND  (COUNT  GE  10) 

THEN  K  -  10  -  M; 

ELSE  K  -  0; 

REPEAT  WHILE  (FLAG  LT  2);  [J  -  L  to  Hi 
CURSOR  «  11*K  ♦  5; 

K  -  K  +  1; 

IF  (CONFLST(I).CONF(J). SELECT  NE  '  * 

THEN  FLAG  -  FLAG  +  1; 

ENDREPEAT 
IF  FLAG  LT  2 

THEN  CURSOR  -  A; 

ELSE  CONFLST(I) .MSG  -  ERRSEL; 


END  OVALID; 


ROUTINE  OUPDATE 

IN  (LIST(I),  L,  H,  CONFLIST(I)); 

INPUT  (CDATA(I)); 

[This  routine  updates  configuration  Index  paraaeter  locally ] 
FLAG  -  'O' B; 

REPEAT  WHILE  (FLAG  E£  '0'B)i  [J  ■  L  to  M] 

IF  CONFLST(I). CONF(J). SELECT  HE  *  * 

THEN 

CDAIA(I)  -  LIST(I).CONF(J). INDEX; 

V  CONFLSTCI).CONF(J). SELECT  -  '  '; 

OJ 

►  •  PUG  -  ’l'B; 

EWDREPEAT ; 

END  OUPDATE; 


2.13  Departure  Queue  Screen 

The  processing  for  the  Departure  Queue  Screen  is  presented  on 
pages  2-333  to  2-339. 


I 
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[“•LOCAL  VARIABLES***) 

STRUCTURE  QUELEN_DATA  LIKE  QUELEN; 

~  [This  structure  Is  similar  to  QUELEM  used  as  a  working  area  within  screen  routine) 

EHPSTRUCTURE; 

INT  CNVRT_QUELEN(A)  (This  variable  Is  similar  to  CNVTQUI  used  ss  a  working  area  within  screen  routine  1 

STRUCTURE  QUE_LOADLIST  IA  structure  of  pointers,  one  for  each  data  field  on  screen  used  bp  panel  manager 
for  loading  and  unloading  to  and  from  screen] 

CROUP  LLNE(A) 

PTR  DEPRUN  (pointer  for  departure  run  wap  data  field) 

PTR  QL  (pointer  for  queue  length  data  field) 

BITS  FENCE  [32  bit  variable  as  prescribed  bp  IMS  manual.  Initialised  to  string  of  (32)  'l'Bl 
ENDSTRUCTURE; 
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ROUTINE  QUEUE 

HJOUT  (QUELEN,  CNVTQLN,  RSTAIUS); 

IThl*  routine  invokes  current  deperture  queue  screen) 

REPEAT  UNTIL  (RSTAIUS  Ng  PP12); 

QUELEN_DATA  -  QUELEN; 

CNVRT_QUELEN  -  CNVTQLN; 

REPEAT  UNTIL  (RSTAIUS  HE  PP7); 

CALL  QSCREEN; 

JH2JE  (QUKLEN_DATA,  CMVRTjQUELEH,  RSTAIUS); 

(This  routine  controls  current  deperture  queue  screen] 

ENDREPEAT; 

ENDREPEAT; 

IP  SUBS1R(QUELEN_DATA.NSG,1,12)  EJ  'DATA  ENTERED1 

THEN 

QUELEN  -  QUELEN  DATA; 

CNVTQLN  -  CNVRT'QUELEN; 


END  QUEUE; 
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I 


ROUTINE  QSCREEN 

INPUT  <QUELEN_DATA,  CNVRT J)UELEN ,  R STATUS); 

I  This  routine  control?  current  departure  quouo  ecreenl 

CML  FNAME  (cherecter  verleble  of  length  B  conteinlng  none  of  DNS  panel  Initialised  to  'QLBNCTH' , 
name  of  panel  that  controla  current  departure  queue) 

INT  CURSOR  (Integer  verlable  containing  cursor' >  pool  don  on  screen] 

BITS  DM(9)  (8  bit  variable  of  data  Bask  used  la  MS] 

STRUCTURE  AUXJMTA  LIKE  QUELENJJAIA 

ENOSIRUCTORE; 

CURSOR  -  2; 

AI1X  DATA  -  QUELEN_DATA; 

DM  -  FLDDEF;  (set  data  fields  to  default  Intensity  (normal) 1 
DH(9)  ■  FLDHIGH;  [set  last  data  field  to  high  Intensity) 

PERFORM  SETJIPJ5CREEH_POINTERS_<QURUE) ; 

DEPCOUNT  -  0; 

LOOP;  (J  -  1  to  4) 

I?  QUELEN_DATA.DKPRUN(J)  HE  (3)  '  '  [check  number  of  departure  runways  In  current  configuration) 
THEM 

DM(2*J)  -  FIDDEF; 

DEPCOUNT  -  DEPCOUNT  +  1; 

ELSE  DM(2*J)  ■  PLDDARK;  [darken  screen  If  therm  are  no  departure  runways] 

END  LOOP; 

REPEAT  UMT1L  (RSTATUS  ME  ENTER) ; 

PERFORM  DISPLAY_PANEL; 
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IF  RSTATUS  E£  PAl 

THRU  stop; 

IF  RSTATUS  IS  ENTER 

THEM  QUELEN  DATA  •  AUX  DATA; 

EESf  ~  ~ 

LOOP;  |J  •  1  to  2  *DEPCOUNT) 

DH(J)  -  FLDDBF; 

EMDLOOP; 

CALL  qCHBCK; 

IN  (DEPCOONT); 

MOOT  (qUEL»_DAIA,  CNVRTJJUtLEN,  CURSOR); 

[This  rout 1m  chocks  for  errors  occurred  on  screen  as  a  result  of  an  erroneous 
entry  ant  returns  value  for  cursor  pointing  to  first  data  f laid  where  an  error 
has  occurred;  and  an  appropriate  screen  sassage  la  issued  advising  user  with 
corrections) 

IF  QUELEM_DATA . NSC  NX  'DATA  INTBUB)' 

THEN  DH(  CURSOR)  •  PLOUGH; 

ggf 


CALL  qVALID; 

IN  (OEPCOUNT); 

INPUT  (QUELENJtATA,  CNVBT_QUELEN) 

[This  routine  right- Justifies  data  on  screen 1 

QUELEN  DATA. NSC  -  'DATA  ENTERED  AT  'CONCATENATE  CHT; 
AUX_DA?A  •  QUEL£N_DATA; 

ENDREPEAT; 

END  Q  SCREEN; 
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I 


PROCESS  SET  op  SCREEN _POlHTEaS_(  QUEUE) 
(Thl»  process  »et»  up  ■««»  poloter* 


tor  OHS  u»el 


LOOP;  (J  •  1  to  *) 

qUE_U)ADUST.UHE(J).DEP«LUH  -  ADWlQUELEHJATX.OEPEUHCJ)) 
qUe"lom»list.ukE'J).ql  '  ADK(QUELEH_DETA.QL(J)) 


EHDIOOP; 

QOE  IOADUIST.MSG  -  iHlKQUBLBMifclA.HSG) ; 
END  SEtJIP_SCUBI_»0IlimSj«JWH»7» 


sec-; 


hj 


ROUTINE  Q CHECK 

IN  (DEP COUNT); 

INPUT  (QUELENJJATA,  CNVRT  QUELEN,  CURSOR); 

(This  routine  checks  Tor  errors  occurred  on  screen  as  a  result  ol  an  erroneous  entry  and  returns 
value  for  cursor  pointing  to  first  data  field  where  an  error  has  occurred;  and  an  appropriate 
screen  aeseage  la  Issued  advising  user  with  corrections] 

ERR1  -  'NUMERIC  INPUT  REQUIRED'; 

ERR2  -  ' NON— NEGATIVE  INPUT  REQUIRED'; 

ERR 3  -  'NO  DECIMAL  POINTS  ALLOWED' ; 

QUELENDATA.NSC  -  'DATA  ENTERED*; 

ON  CONVERSION  BEGIN; 

QUELEN_DATA.MSC  -  ERR1; 

RETURN; 

REPEAT  WHILE  (QUELEMJDATA.KSC  E£  '  DATE  ENTERED' )  ]J  -  1  to  DEPCOUNT] 

CURSOR  -  2*J; 

Get  STRING  (QUELEMJDATA.QLCJ))  EDIT  (CHVRTJflIKLENU)); 

IP  VERIFY  QUELEM_DATA.QL(  J)  )  E£  0 

THEM  QUELEMJDATA.MSG  *  ERR2; 

ELS  EXP  VERIFYC.',  QUELEN_DAIA.QL(J))  0 
THEN  QUELEHJJATA.HSC  -  ERR3; 

ENDREPEAT; 

IP  Q UELEN_DATA . MSG  -  'DATA  ENTERED' 

THEN  CURSOR  -  2; 

END  QCHBCK; 


I 
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routine  qvalid 

IN^  (DEPCOUNT); 

INOUT  (QUELEX  DATA,  CHVrrJJUELBO ; 

- ~(Thl»  routine  rlght-JuntlflM  on  d«t«  on  ncronnj 

$TWO  -  2; 

LOOP;  1J  -  I  To  DEPCOWTl 

QUELEN_DATA.QL(J)  -  SU»STKr(rL0AT(OIWT_QU«LBI( J))  ,»TVO)  ,1,2)  t 
ENDLOOP; 

END  QVALID; 


-  *  • 


2.14  Ordered  List  of  Transitions  Screen 

Pages  2-341  to  2-396  present  the  processing  of  the  Ordered  List 
of  Transitions  Screen. 
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(•“LOCAL  VARIABLES***! 

STRUCTURE  TRANS_LOADLIST 

(A  structure  of  pointers,  one  for  eech  dots  field  on  screen  used  by  penel  nsnsger  for  loading  and 
unloading  to  end  frou  screen] 

PTK  PCTARR  (pointer  for  arrival  parcantaga  data  field) 

PTR  NUMELIG  (pointer  for  nuabar  of  ellgibla  configuration  data  flald) 

PTK  SCROLL  (pointer  for  scroll  data  fiald) 

PTR  ARR(3)  [pointer  for  arrival  runways  data  field] 

PTR  DEP(4)  (pointer  for  departure  runweye  data  field] 

PTR  CTRANHk  (pointer  for  current  configuration's  transition  hour  capacity  data  field] 

PTR  CFINCAP  (pointer  for  current  coof lguratloo's  final  capacity  data  fleldl 
GROUP  COKPIG(IO) 

PTR  RAW  (pointer  for  rank  data  fleld| 

PTR  AIR(l)  (pointer  for  arrival  runaays  data  field) 

PTR  DEP(4)  (pointer  for  departure  runways  date  field] 

PTR  MINUTES  (pointer  for  transition  duration  data  field) 

PTR  HOURLY  (pointer  for  hourly  transition  capnclty  data  field) 

PTR  FIMCAP  (pointer  for  final  capacity  data  field) 


PTR  MSG  (pointer  for  ecreeo  sassage  data  field) 

UTS  FENCE  (32  bit  variable  as  prescribed  by  DNS  annual,  initialised  to  string  of  (32)  '1'  R] 


SUBSTRUCTURE; 
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I  NT  C0NF1GDATA  {*.  T) 


(an  Integer  variable  containing  numerical 
current  and  final  configuration*  involved 


code*  for  arrival  and  departure  runway*  in 

in  transition] 


ROUTINE  TSBTUP 

IN  (PRCARR,  CNFCRQ,  CNVTOEN.  DKPMAT,  FIXTRAV,  TRANLST ,  INFORM 
qUELEM); 


INPUT  (RSTATUS) ; 

(Thl*  routine  invoke*  ordered  Hat  of 


transition*  screen) 


CALL  TRAN; 


CONPIND,  CNDTN,  ELCBLTT ,  CNVTQLN. 


IN  (PRCARR,  CNFGRQ,  CNVTDEM,  DEPMAT,  FimAU.  INFORM.  OONFIND,  CNDTN.  ElfiRLTT,  CNVTQLN ,  QURLRN) 

— 'itKSL  per  fore*  traneltlon  cput.tioo.  and  tuition  pnr-et.r  aet  up, 

TEMPI  -  TRANLST. NSC; 

TEMP2  -  (A)  '  '! 

RgFBAT  UNTIL  (RSTATUS  Mg  PF12)} 


TRANLST. MSG  -  TRMP1; 

TRANLST. SCROLL  «  TEMP 2; 

REPEAT  UNTIL  (RSTATUS  ME  PFS); 

CALL  TSCREEM; 


JUS  (ELC»LTT(2)); 


ordered  lint  of  treneltlon*  .ere.*) 


I HD REPEAT; 
EHPEEPBAT; 


END  TSETUP; 
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ROUTINE  TSCRBEN 

IN  (SLGBLTY<2)); 

INPUT  (TRANLST,  RSTATUS ) ; 

(This  routine  controls  ordered  list  of  trsnsltlons  screen) 

CHR  PNAHE  (Character  variable  of  length  8  containing  naae  of  OHS  panel  Initialized  to  'TRANL1ST* ,  neae 
of  panel  that  controls  ordered  Hat  of  transitions  screen) 

I  NT  CURSOR  (Integer  variable  containing  cursor's  position  on  screen) 

BITS  DM(121)  (8  bit  variable  of  data  aaeka  used  In  DKS) 

INT  CNVTSCROLL  (integer  value  of  scroll  data  field) 

PERPORM  SKT_UP_SCRREN_PERMANEHT_POINTKRS  (TSEHJP) ; 

PERPORM  SCRRKNPIOCRANIMITIAL I ZATION; 

IP  ELGBLTY(2)  .KIM  EC)  0 

THEN  TRANLST .HSC  -  'HO  ELIGIBLE  CONFICURATIOHS '  ; 

TRANLST. MSG  R£  'CURRENT  CONPIGU RATIO*  IS  INELIGIBLE' 

THEN 

COUNT  -  0; 

DELTA  -  Oj 
NEXT  -  0; 

REPEAT  UNTIL  (  RSTATUS  NE  ENTER)  ; 

PERPORM  SCREENSCEOLL; 

PERPORM  D I SPLA Y_P ANEL ; 

IP  RSTATUS  *2  PA1 
THEN  atop; 
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IF  RSTATUS  E£  ENTER 
THEN 

DM  -  FLDDEF; 

01(123)  -  FLDHIGH ; 

LOOP;  (J  -  A  to  12] 
DM( J)  -  FLDHIGH; 

END LOOP; 


CALL  TCHECK; 

INPUT  ( TRAILS T,  CWT_SCROLL)  ; 

[This  routine  checks  For  errora  occurred  on  scrcun  as  n  result  of  an  errooeoua  entry 
and  returna  value  for  curaor  pointing  to  flrat  data  flald  where  an  error  haa 
occurred;  and  an  appropriate  ecreen  aeaaage  la  laaued  advlalng  uaer  with  correctional 

IF  TEAKLST.MSG  NE  ’DATA  EHTERID1 

THEM 

DM  (CURSOR)  -  FLDHIGH; 
dVT__SCROLL  •  0; 

ELSE 

TRARLST. SCROLL  -  (A)  *  '; 

TRANLST.MSC  -  ’DATA  ENTERED  AT  '  CONCATENATE  GMT; 


EMDREPEAT 


END  TSCREEN; 
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PROCESS  SET_UP_SCREBN_PBRMANENT_POINTERS_(TSETUP) 

(This  process  sets  up  screen  pointers  of  perasnent  variables  for  DUS  use) 

TRANSLOADLIST.AMU)  -  ADDR!TRANLST.  AM(  1)  ) ; 

TRANS  LOADLIST.  AM!  2)  -  ADDR(TRANLST.  ARR(2)  )  ; 

TRANS*- LOADLIST .  ARR( 3 )  -  AODR(TRANLST.  ARR(3)  ) ; 

TRANS~L0ADLIST.DEP(1)  -  ADDR( TRANLST . DEP ! 1 ) ) ; 

TRANS  LOADLIST. DBP(2)  -  ADDR(TRANLST.DEP(2)  ); 

TRANSJL0ADLIST.DEP(3)  -  ADDR(TRANLST.DEP(3) ); 

TRANS~LOADLIST.DEP(A)  -  ADDRf TRANLST. DEP! 4)); 

TRANS JLOAOLIST.PCT_ARR  »  ADDR( TRANLST. PCT  AM); 

TRANS  LOADLIST .  NUM_ELIG  -  ADOR(TRANLST.NUM_ELIG)  ; 

TRANS~LOADLIST.  SCROLL  -  ADDR( TRANLST.  SCROLL) 

TRANS  LOADLIST.  CTRAM1R  -  ADDR(TRANLST.CTRANHR) ; 

TRANS  LOADLIST. CFINCAP  -  ADDR ( TRANLST. CFINCAP); 

TRANS  LOADLIST.KSG  -  ADOR! TRANLST. HSG); 

WOP;  [J  -  1  to  10) 

TRANS_LOADLIST.COHFIC(J)  .RANK  -  ADDR(TRANLST.CONFIG(  J)  .RANK)  ; 
TRANS__LOADLIST. CONFIG !J)  .AM!  1)  -  ADDR(TEANLSr.OONFIG(./).AM(l)); 
TRANS  LOADUST.CONFIG(J)  .AM(2)  -  ADDR(TRANLST.CONPIG(J)  ,ARR(2) ) ; 
TRANS_LOADLIST. CONFIG!  J).AM!3)  •  ADDR( TRANLST. CONFIG(J).AM(3)  ); 
TRANS_LOADLIST.CONPIC(  J)  .DCF(l)  •  ADOR( TRANLST. CONFIG(J)  .DEP(  1)  )  ; 
TRANS__LOADLIST .CONFIG (J )  .DEP( 2 )  -  ADDR(TRANLST.CONFIG(  J)  ,DEP(2)  ); 
TRAKSJLOADLIST.CONFIG(J).DEP(3)  •  ADDRf TRANLST. CONFIG! J)  .DEP(3)  ) ; 
TRANS_LOADLIST.CONFIGf  J)  .DEPf  4)  -  ADDRf  TRANLST.  CONFIC!J).DRPf  4)); 
TRANSLOADLIST.  CO  HFIG(J). HOURLY  -  ADOR(TRANLST.CONFIC(J)  .HOURLY) ; 
TRANS_LOADLIST.CONPIGf J)  .FINCAP  -  ADDR( TRANLST. CONFIC(J).FINCAP); 
TRANSJLOADLIST. CONFIGf  J) .MINUTES  -  A DDR(TRANLST. CONFIG! J) .MINUTES) S 

ENPLOOP ; 

END  SETJ1P_SCREEN_PERKANENT_P0INTERS_!TSETUP) ; 
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PROCESS  SCREKMJ'ROC  REINITIALIZATION 

i  This  process  performs  e  number  of  verlsble  lolclsllrstloos  for  screen  routine] 

CURSOR  -  3; 

OH  -  FLODEP; 

DH(123)  -  PLDHIGH; 

LOOP;  [J  -  4  to  12) 

0H(J)  -  FLOHIGH; 

ENDLOOP; 

CNVT  SCROLL  -  0; 

TXANLST.MSC  -  (4)  •  •; 

COUNT  -  ELGBLTY.NUM; 

DELTA  •  MIN( COUNT,  10): 

NEXT  -  DELTA; 

INDEX  -  1; 

END  SCREENPROCRAMJNITIALIZATION; 


PROCESS  SCREENSCROLL 

[This  process  performs  scrolling  function  for  ordered  list  of  transitions  screen) 

INDEX  -  INDEX  +  CNVTSCROLL; 

NEXT  -  NEXT  +  CNVTJ5CR0LL ; 

JT  NEXT  LT  DELTA 

THEN 


L  -  1; 

M  -  HAX  (1,  NEXT); 

NEXT  *  Hj 

INDEX  -  M  -  DELTA  +  l; 

ELSE  IP  INDEX  CT  COUNT  -  DELTA  «■  1; 

THEN 

N  -  COUNT; 

L  -  MIN( COUNT,  INDEX); 

INDEX  -  L; 

NEXT  -  L  +  DELTA  -  1; 

ELSE 

M  -  NEXT; 

L  -  INDEX; 

K  -  0; 

IP  (M  LT  10)  AND  (COUNT  GT  9) 

THEN 

REPEAT  WHILE  (K  LT  10  -  M) 

LOOP;  |J  •  1  to  11) 

DM(11*K  +  J  +  12)  -  FLDDARJC; 


ENDLOOP 
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END RE PEAT  ; 

REPEAT  WHILE  (M  ME  0));  |J  -  L  to  M] 

K  -  E  +  1; 

TRAMS  LOADLIST.CONFIG(E)  .RANK  -  ADOR(TRANLST  .COMFIG(J)  .RANK) ; 
TRANS  LOADLIST.COHFIC(E)  .ARR(l)  -  ADDR(TEAMLST.CON»IC(J)  .AER(l)  ); 
TRANS--! LOADLIST.GONFIG(E) ,  ARR(2)  -  ADOR(TRANLST.COMPIC(J)  ,ARR(2)  ) ; 
TRANS~LOADLIST.CONFIG(E).ARE(3)  -  ADDR(TRAHLST.CONPIC(J)  .  ARR(3)  )  ; 
TRAMS  LOADLIST.CONFIG(E).DEP(l)  •  ADOE(TRANLST.COMPIC<J).DBP(l)); 
TRAMS~LOADLIST.OOHPIG(E).DEP(2)  -  ADDR(TRAMLST.COMMC(.J).DEP(2)>; 
TRAMS  LOADLIST.CONFIG(E).DEP(3)  >  ADOR(TRAMLST.COMPIG(  J)  .DEP(3)  ) ; 
TRANS~LOADLIST,COMFIG(E)  ,0EP(4)  -  ADDR(TRANLST.CONMC(  J)  .DEP(A)  ); 
TRANS~10ADLIST.C0MFIC(E). SOURLY  -  ADOR(TRANLST.CONHG(J)  .SOURLY); 
TRAMS-~LQADLIST.CONPIC(E)  . PIMCAP  -  ADOR(TRAMLST.COWIC(J).PIMCAP); 
TEANS_LOADLIST.CONPIC(E)  .MI MUTES-  ADOR(TRAMLST.COMFIC(  J)  .MINUTES) 

EMDLOOP; 

REPEAT  WHILE  (R  LT  10); 

LOOP;  (J  «  1  to  111 

DM(11*E  ♦  J  +  12)  »  PLDOARK; 

EMDLOOP; 

E  -  E  +  1; 

ENDEEPEAT; 


END  SCREEN  SCROLL; 
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B0UT1MB  TRAN 

IN  (FRCABR,  CMFCRQ,  CNVTDEM,  DEFMAT,  F1XTRAV,  INFORM,  COHFIND,  CNDTN,  BLGBLTY,  CNVTQLN,  QUELEN) 
MOOT  (TRAMLBT); 

|Thle  routine  ptclont  t rao«l c loo  caaputatlona  and  aerncn  parameter  net  up) 

T  -  'O'i; 

MM  -  0; 
tWO  -  2; 
tmm  -  ij 
Irani  -  4; 

IF  (CMrTM(l)  IQ  2)  AMD  (CRDTM(2)  IQ  1) 

(aat  up  variable  X  baaed  on  mitlur  conditlona  before  and  after  traneltton| 

THU  X  -  2j 

ilii  I  -  1; 

(compete  forecaat  percentage  of  errlvala] 

IF  FbC4U(2).TOTAIR  ♦  PRCAM ( 2)  .TOTDEF  BJ  0. 

THU  ATOTFPC  •  0.5; 

1141  ATOTFMC  «  FKAU(2).TOTAU/(PICAM(2).TOTAU  +  F»CARR(  2 )  .  TOTDEP ) ; 

A  TOT  PRC  -  PUUT(rLOM(AIOn*CnOO.  ♦  .5)); 

CO«rUT.FCT_ARR  »  SUlSTt(F(AT0TPtC,lTBXl),l,3); 

CDROOMF  -  OOMTtHD(l);  (current  configuration  Index] 

FUd,*,*)  -  FIXT*AV(CUBCOiF,*p»); 

TFLAC  -  ’O'I; 

IF  SUaSTI(BU!BLTT(l).ID,  CUXCOHF.l)  l£  ’O’B 


THBH  (If  current  configuration  le  currently  eligible,  then  continue) 
CC  -  0; 
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CALL  CONSIST; 

IN  (CNRSUKOnCONF)); 

OUT  <CC)S 

(Thl*  ro« tin*  itti  variable  OONFICDATA  which  signifies  runways  In  a  configuration) 
C0HFICDATA(1,*)  -  CC; 

IF  (X  52  2)  AID  (SUBSTg(ELGBLTY(2).ID,CUlGONF,l)  E£  '!•» 

lMI  [if  transition  la  fron  IF*  to  VFE  and  currant  configuration  will  ha  lnallglbla  In 
TFI  conditional 

X  -  i; 

T  -  'l'li 
TFLAG  -  'l'l; 

XF  -  1; 

CALL  DROIT; 

IN  (X.  XF,  COKOW,  INFOn,  FtCAU,  CNVTDBt,  CONTI  COAT  A,  CNFCgQ); 

OUT  (DIM); 

(Thla  rout  In#  confutes  daaaad  values  for  aacb  fix  pertaining  to  currant 
configuration) 

IF  T  E£  •!*• 

THEN  X  »  2; 

(deterulna  n uubar  of  LP  variables  partalnlng  to  currant  configuration! 

IF  C0NF1GDATA(1,7)  NB  0 
THEN  VAWUM1  -  10; 

ELSEIF  C0NFICDATA(1 ,i)  NB  0 
THEM  VAXMUH1  -  9; 


LOOP;  (t  -  7  to  10]  [ut  up  variable  IR  tlaa  rafuiral  for  queue  flush  out  for  oacb  departure 
runway  baaed  on  departure  queue  length] 

IF  ORf(l.K)  HE  0 

TNEN  IMT(t-6)  -  (3600./DEM(1,E)  •  CNVTqLN  (*_6))j 

ENDLOOP; 

mMU  -  0; 

LOOP;  [C  •  1  to  7)  (aot  up  oenber  of  rwnanpa  In  currant  configuration] 

IF  C0NPIG0ATA(1,G)  ME  0 

THEM  KNMAX  -  N0NMA1  +  1; 

EMDLOOP; 

LOOP;  (Q  -  1  to  73] 

IF  (SUNSTg(ELGNLTY(2).ID,Q,l)  Eg  ’0'g)  1»  (Q  HE  CURCONF) 

THEM  (if  configuration  Q  la  eligible  In  forecaat  envlronnant  and  It  la  not  aaae  aa 
current  configuration) 

FINCONP  *  Q;  (final  configuration  Index) 

CC  -  0; 

CALL  CONSET; 

IN  (CNFGgQ(F INCOME) ); 

OUT  (CC) 

(Thin  routine  aeta  variable  COMF1 GOAT A  which  elgnlflee  runuajra  In  a 
configuration) 


C0MF1GDATA(2,*)  -  CC; 

(determine  n unbar  of  LP  variable*  pirutalni  to  fiaal  configuration) 

if  amriao*iA(z,T)  n  o 
ngj  VAXMM2  •  10; 
nair  ooviaurA(2.t)  a  o 

BM  VAtMOia  -  9; 
tUt  VAUDM2  «  8; 

COUMMAX  -  0; 

LOOT;  (C  -  1  to  7)  |aat  ap  ouabara  of  runaapa  la  final  configuration] 

IF  CONFIGBATA  (2.C)  JR  0 

them  coumoux  -  counmu  ♦  i; 

BMPLOOP; 

If  IPLAC  *  *1*8  |lf  tranaltlon  la  fraa  IF*  to  VP*  and  currant  configuration 
will  bn  Ineligible  In  foracaat  conditional 

THE* 

XV  '  2; 

CALL  DEMSET; 

III  (*,  XT,  FIHCOKF,  IHFOiM,  PEC  AM,  CHVTDEM,  CONFICDATA, 
COHFCXQ)  ; 

OPT  (IMM); 

[Thla  routine  compute*  daaand  valuaa  for  aacb  fix 
pertaining  to  final  configuration] 

FIX(2,»,*)  -  FIXT*AV(FINCOHF,*,*)i 
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IN  (DU,  VAEMUMl,  VARNUM2,  XKT.  FIX); 

OPT  (TIAMBTIME,  TRAMCAP); 

[•ptelil  rautlM  to  aapute  troaoltloa  capacity,  by  passing 
LP  algorltha) 

ELSE1P  SUBSTR(ELCRLTT(X).ID,Q.l)  «a  'O'B 

THEN  (If  transition  la  taking  placa  In  sans  sovlrouwent :  that  la  VPg 
to  m  or  Ifl  to  IFF  and  configuration  Q  la  allglbla) 


CALL  DIMSIT; 

IN  (X,  IF,  FINCONF,  INFORM,  PRC  AIR,  CNVTDEH,  COMFIGDATA, 
CMFCRQ) ; 

OUT  (D») 

(This  routine  coaputea  deaand  values  for  each  fix 
pertaining  to  final  configuration] 


CALL  TDBP; 

IN  (COMOITICM(X).  COMFIGDATA,  INT,  DBFMATV, 

OUT  (HATDEP,  TRAVTIM) 

[This  routine  prepares  dependence  aetrlx] 

LOOT;  (I  -  A  to  7)  (If  departure  runways  are  sane  taka  average 
deaand] 

IF  CONFIG0ATA(l,I)  Eg  C0NFICDATA(2,I) 

THIN 

DEM<1 ,1+3)  -  (DEM(1, 1+3)  +  DBM(Z,I+3))/*TII0; 
DEM(2,I+3)  -  OEM  (1,1+3); 

EMDLOOT; 

CALL  CALC; 


I 

i 


! 


i 


4 


IN  (tOWUI,  COLUMMAX,  VA8NUM1,  VAENUM2,  CONFICDATA, 
NATOS P,  DBM ,  TRAVTIN,  BIX); 

OCT  (TBANSTIME,  TtANCAP); 

[Ikli  routine  performs  LP  algorithm  and  determines 
tranaltlon  duration  aod  capacity) 


( CONDITION!  1 )  BQ  1)  AM)  (CONDITIONS)  *2  2) 

THIN  (If  tranaltlon  la  Iron  IPS  to  VPN) 

XP  -  2; 

XX  -  2; 

CALL  DBM8XT; 

IN  (XX,  XP,  PINCONP,  INPOM,  P SCANS ,  CNVTDEM, 
CONFICDATA,  CNFCSQ1; 

OUT  (OEM); 

[This  routine  computes  demand  values  for 
each  fix  pertaining  to  final  configuration) 

PIX(2,*,».)  -  FIXTBAV(FINCONF,*,*): 

CALL  SPTXAN; 

IN  (DBM,  VABNBM1,  VAKNUM2,  INT,  FIX); 

OUT  (TBANSTIMB,  TBANCAP); 

[Thla  la  a  apeclal  routine  to  compute 
tranaltlon  capacity,  hy passing  LP  algorithm) 

BLSBIP  SUBSTB(ELGBLTY(2) ,  ID,  CUBC0MP.1)  ’O'B 


in  (xx,  xp,  cnam.  impoem,  pecaee, 

CMVTD8H,  COHFIGDATA,  CMPCKQ) 

OUT  (DEM); 

(Tbla  routine  computes  denned  nlwi 
for  eneb  Hi  pertaining  to  currant 
configuration) 

It  •  2  ; 

XP  -  2; 

CALI.  DEMSET; 

—  (XX‘  Xr'  rlmXmT.  INPOSM,  PECAEE, 
CMVTDEM,  COHPICDATA); 

OUT  (DEM); 

[Thin  routine  eoaputee  deueod  values 
for  ench  fix  pertnlolng  to  flnnl 
configuration) 

PIX(2,*,»)  «  F1XTEAV(PIHC0NP ,*,*); 
CALL  TDEP; 

IN  (CONDITIOM(X)  ,  COHPICDATA, 

I  NT,  DEPMAT); 

OUT  (MATDEP,  TXAVTIM); 

IThln  routine  prepares 
dependence  natrix) 

I-OOP  [I  •  A  to  f|  [If  deperture 
runwsya  ere  Mae  taka  everege 
denned) 

IP  CONPIGDATA  (1,1)  EJ  C0NPICDATA(2,I) 


2-357 


THEN 


DEM(l,I+3)  -  (DEM(l,I+3)  ♦ 
DEM(2,I+3))/$IWO; 
DEM(2,I+3)  -  »(!,»)); 


IjlljMHjP 
CALL  CALC; 

IN  ( fcOWMAX , COUMIMAI ,  VAAMUH1 ,  VAMOM2, 

CONPIGDATA,  HATDKP,  DM,  TtAVTUI,  fit) 

out  (tbanstime,  tbancap); 

(This  routine  performs  LP  couputntloo 
and  dotomloon  transition  duration  and 
capacity] 


ELSE 


XP  -  2; 
XX  -  2; 


CALL  DEHSET; 

IN  (XX,  XP,  PINCONP,  INPOBN,  PECABE, 
CNVTOEN,  CONFIGOATA,  CNPCEQ); 

OUT  (DEM); 

[Thla  routine  demand  mluea  for  each 
fix  pertaining  to  final  configuration] 

PIX  (2,  *,  •)  -  FIXTEAV(PINCOMP,  *,  «); 

CALL  SPTEAN; 

IN  (DEM,  VAENUM1 ,  VABNUH2,  I  NT,  PIX); 

OUT  (TEANST1ME,  TEANCAP); 

[Thla  la  a  apaclal  routine  to  compute 
transitloo  capacity,  bypassing  LP 
algorithm) 
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CMVT'LIST(Q) . INDEX  -  Q; 

CNVTLIST(Q). MINUTES  -  TRANSTIME; 

am  LIST  (Q).flNC  -  INF0RM(2)  .CONF(FINCONP) . 
CAPACITY; 

TOTCAP  -  INFORM(2)  .CONF(riNOONr). CAPACITY; 
TOTCAP  -  TOTCAP  *  (60  -  TRANSTIME  )/60; 

LIST(Q)  .CAP  -  TOTCAP  ♦  TSAMCAP; 

LIST(Q). INDEX  -  Q; 

ELSE 

LIST(Q)  .CAP  -  -1.0; 

LIST(Q).IMDEX  -  999; 

CNVT  LIST(Q). INDEX  -  0; 

CNVtT-IST(Q).  MINUTES  -  0; 

CNVT_LIST(Q).FINC  »  0; 

END  LOOP; 


CALL  OSORT; 

INPUT  (LIST); 

(This  rout ine  aorta  Hat  of  tranaltlona  on  transition  hour  capacity) 


COUNT  -  0; 

LOOP;  (N  -  1  To  13] 

P  -  LIST(N). INDEX; 

IF  P  LT  999 
THEN 

COUNT  -  COUNT  +  1; 


I 


TRANLST.  C0MP1G(  COUNT).  RANK  -  SUBSTR(F(FLOAT(COUNT),  $  THREE)  ,1,3) 
TRANLST.CONPIC(COUNT).ARR(l)  -  CNFGRQ(P).ARR  RUY(1>; 

TRANLST. CONPIC(COUNT)  .AU(2)  -  CNFCRQ(P) .  ARR^BIYd) ; 

TRANLST. CONFIG( COUNT)  .ARE  (3)  -  CNPCRQ(P)  .ARt_*HY(3); 

tranlst. config(coont) .dep(1)  -  cnfgrq<p).dep  rny(1); 

TRANLST.  CONFIG  (COUNT)  .DEF(2)  -  CNFCRQ(P)  ,DEPTlHT(2)  ; 

TRANLST,  CONFIG  (COUNT)  .DKP(3)  -  CNFGRQ(P).DEP_RNY(3); 

TRANLST.  CONFIG  (COUNT).  DKF(  A)  -  CNFCRQ(P)  .DEPRWY(A)  i 
TRANLST. CONFIG(COUNT). HOURLY  -  F(LIST(N)  .CAP,  tFOUR) ; 

TRANLST. CONFIG(COUNT).FINCAP  -  F(CNVT_LIST(P)  .PINC.tPOUR); 

TRANLST. CONFIC(COUNT). MINUTES  -  SUBSTR(F(CNVTJ.IST(P).MI1*JTKS,  $TWO),l,2); 


EHDLOOP ; 

If  SUBSTR(ELCBLTT(2)  .ID,  CURCONF.I)  Eft  'O'B 
THEM  COUNT  -  COUNT  +  1; 

TRANLST. NUHELIG  -  SUBSTR(F(FLOAT(COUNT,»THREE),I,3)i 

E  -  ELCBLTT(2).MUN; 

ELCBLTT ( 2 ) . NUM  -  COUNT; 

ELSE  (current  configuration  la  Ineligible) 

TRANLST. MSG  *  SUBSTR( TRANLST. MSG,  1,  20)  CONCATENATE  1  ***CURRENT  CONFIGURATION  IS 
INELIGIBLE***'; 

TRANLST. NUM  ELIG  -  SUBSTR(F(FL0AT(ELGBLTY(2)  .NUM) , (THREE)  ,1,3); 

TRANLST. ARR(l)  -  CNFGRQ(CURCONF)  .ARR  RWY(l); 

TBANLST.ARR(2)  -  CNFGRQ(CURCONF)  .ARE  RWT(2); 

TRANLST. ARR(3)  -  CNFGRQ(CURCONF)  .ARRTlW*(3); 

TRANLST. DEP(l)  -  CNFCRQ(CURCONF)  .DEP  RHT(l); 

TRANLST. DEP{2)  -  CNFGRQ(CURCONF) ,DEP_RNT(2); 

TRANLST. 0EP( 3)  -  CNFGRQ(CURCONF) .DEP_RNY(3); 

TRANLST. DEP(4)  -  CNFGRQ ( CU RCONF ) . DEP_RWT (A); 

It  SUBSTR(ELCBLTY(1). ID, CURCONF.I)  EjJ  'O'B 
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THBN  TRANLST . CTRANHR  -  F(INF0RM(1)  .CONF(CURCONF)  .CAPACITY. *F0UR) 
ELSE  TRANLST.  CTRANHR  -  (S)'b'i 
IF  SUBSTR(ELGBLTY(2).ID.CURC0NF,1)  E£  'O'B 

THEN  TRANLST.  CFINCAP  •  F(INFORM(2)  .CONP(CURCONF)  .CAPACITY,  tFOUl) 
ELSE  TRANLST. CFINCAP  -  (5)' 

TRANLST. SCROLL  -  (A)' 

END  TRAN; 
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ROUTINE  CONSET 

IN  (CHPCRq  (Q) ) ; 

OUT  (CC); 

[This  routine  sets  variable  CONPICDATA  which  alfnlflaa  runways  In  a  configuration] 

CC  -  0; 

El  -  0; 

K2  -  3; 

LOOP;  [P  -  1  to  12) 

IP  SUBSTt(CNPGtq(q).ID,P,l)  fa  'l’» 

THEN 

El  -  El  +  1; 

CC(E1)  -  P; 

IP  SUBSTR(CNPGtq(q).ID,M2,l)  *1*» 

THEN 

E2  -  K2  ♦  1; 

cc(E2)  -  P; 

END  LOOP; 

END  CONSET; 


Z9f-; 


ROUTINE  DEM SET 


IN  (X,  XP,  INDEX,  INFORM,  PRC  ARE,  CNVTDEM,  CONFICDATA,  CNFCRQ)  i 
OUT  (DEM); 

|Thie  routine  coaputea  deaaod  at  fixes  for  current  and  forecast  conflguratione] 

ODEM(l)  -  CNVTDEM (X).DEP. NORTH; 

DDEH(2)  -  CNVTDEM(X)  .DEP.EAST; 

DDEM(3)  -  CNVTDEM(X).DEP. SOUTH; 

DDEM(4)  -  CNVTDEM(X)  .DEP.UEST; 

DDEM(S)  -  CNVTDEM(X).DEP.HKE_D; 

DISDEM  -  0; 

K2  -  3; 

LOOP;  [P  -  1  to  12) 

IP  SUBSTR(CNPGRQ(  INDEX).  ID, P+12,1)  Eg  'l'B 


R2  -  E2  +  1; 

LOOP;  [J  -  l  to  S| 

IF  CMFGEQf  INDEX) .  DEP(J)  Eg  F 

THEN  DISDEM  (K2  -  3)  -  DISDEM  (X2  -  3)  +  DDEM(J); 

ENDLOOP; 

END LOOP; 

ARRCAP  -  INFORM(X)  .CONF(INDEX)  .NARRCAP  +  INFOEM(X)  , CONF( INDEX)  .SARECAP; 
DBPCAP  -  INFOEM(X)  ,C0NF(  INDEX).  SDEPCAP  +  INFORM(X)  .CONP(INDEI)  .NDEPCAF; 

IF  PRCARR(X)  .TOT ARE  +  PECARE(X)  .TOTDEP  Eg  0 

THEM  ATOTPRC  -  .3; 

ELSE  ATOTPRC  -  PRCARE(X)  .TOTARE/ (PRCAER(X)  .TOTAER  +  PECAEE(X) .TOTDEP) ; 
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BTOTPRC  -  AXSCAP/ ( ASRCAP  +  DEPCAP ) ; 

IP  ATOTPRC  GT  BTOTPRC 

THEN  DEPCAP  -  (1.0  -  ATOTPRC)*ARBCAP/ ATOTPRC ; 


ELSE1P  ATOTPRC  IT  BTOTPRC 

THE*  ARRCAP  -  ATOTPRC* DEPCAP/  ( 1 . 0_ATOTPBC )  ; 


DKM(XP.l) 

DO«XP,l) 

DEH(XP,3) 

OEH(XP.A) 

DEM(XP,5) 

DEH(XP,6) 


ARRCAP*CHVTDEM(X)  .am 
ARRCAP*CNVTDEH(X)  .AM. 

amcap*chvtdem(x)  .am 
amcw*chvtdem(x)  .am 
arxcap*chvtdq«  x) .  AM 

AMCAP*CHVTDEM(X)  .AM 


1CUBBS/PRCAM(X). TOTAM; 
PLA*T/PRCAM(X)  .TOTAU; 
,CGT/PRCAM(X)  .TOT ASX; 
VAINS/PRCAM(X)  .totam; 
,  PARK*/  P  SCARS  ( X>  .TOT  ASS; 
.MXE  A/PBCAM(X>  .TOTAM; 


IP  PRCARR(X)  .TOTDEP  GT  0 


THEM 

REPEAT  WHILE  COHPICDATA(XP.  K+3)  EE  0)  [E  -  1  To  *] 

0EM(XP.  K+6)  -  DEPCAP*DISDEH(»)/P*CAM(X). TOTDEP; 


EMDSEPEAT ; 


END  DENSET; 
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RQjTTIKE  TDKF 

IN  (X,  CONFIGDATA,  I  NT,  DEFMAT)  ; 

OUT  (MATDEP,  TSAVTDO; 

{Thie  routine  coaputee  dependence  aetrlx) 

MATDEP  -  0; 

LOOP  [C  •  1  To  7J 

IP  CONFIGDATA  (I ,  S)  WO 

THEM 

LOOP;  (H  -  1  to  7J 

IF  (C  LE  3)  AND  (H  LB  3) 

THEM  JJ  -  1; 

ELSEIF  (G  LB  3)  AND  (H  CT  3) 

THEM  JJ  •  2; 

ELSEIF  (G  CT  3)  AND  (B  LE  3) 

THEN  JJ  >  3( 

ELSE  JJ  -  A; 

IF  C0MFIGDATA(2,  H)  HE  0 
THEN  • 

HATDEP(C.H)  -  DEPMAT(X)  . SECT(  J J)  .MATEIC(CONFIGDATA(  1  ,C )  ,  C0MFIGDATA(2 ,H)  ) 

ENDLOOPj 


ENDLOOP 


2-365 


TIAVTIM  -  0; 

IT  cohficdata(i,7)  ne  o 
THEM  DP  -  *; 

ELSE  IP  COMFIGDATAd  ,6)  HE  0 
THEM  DP  -  3i 
ELSE  DP  -  2; 

LOOP;  (E  -  1  to  DP] 

QFLAG  -  0 

LOOP;  [El  *  1  to  71 

IF  HA1DEP(3  +  E.  EE)  ME  0 
THEM 

MATDEP(3  ♦  B.  EA)  -  HATDCP(3  ♦  B,  EE)  ♦  IMT(E) 
QPLAC  -  1; 

EHDLOOP; 

JUT  QPLAC  E£  0 

THEM  TEAVTIM(B)  -  IHT(E); 

EHDLOOP; 

EMD  TDEP; 


«OUTmg  SPTEAN 


IH  (ow,  VAWWM1,  VAEMUM2,  in,  FIX); 

OUT  (TEAMSTIME,  TUMCAP); 

SSlTaSS*"  *  *PeCU1  *1*0rlt'-  10  —  *-  two  coaft.ur.tio..  00t 

SAFESEP  -  3; 

FIXTHAV  -  FIX; 

DEMI  -  DEM(1,»); 

0EM2  -  DEM(2, *); 

TEMP  -  0; 


(coapute  transition  duration] 

LOOP;  [M  -  I  to  3] 

LOOT;  (L  -  1  to  6) 

IE  Firmva.M.I.)  CT  TEMP 
THEM 


TEMP  -  PIXT*AV(l,M,L); 
EUHIND  -  M; 

PIXIHD  -  L; 


EMDIOOP; 

CUETIME  -  TEMP; 

L0«;  (M  -  1  To  6] 

IF  M  ME  FIXIHD 

ISSSl  CUETIME  EJ  FIXTEAV  (I,  BOVIND,  M) 


1 


THEM  CUETIHE  »  Cut TIME  +  SAFESEP;  [contribution  of  curront  configuration  to  transition 

duration] 

BH8L00F; 

rixTtAV  <1,  emind,  ruiD)  -  cuetxme; 

TEMP  .  0; 

LOW;  [M  •  1  to  4] 

TEMP  «  N*Z(TEMP,  IKT(M)); 

RMPLQOP; 

CUHTINE  »  MAX(CUBTIMEtTWP);  (lneluda  affact  of  dapartura  queues] 

IP  CUtTIME  CE  «0. 

THEM  CUETIME  -  59; 

TEMP  -  0; 

LOOP;  [M  -  1  to  3) 

LOOP;  (L  •  I  to  <( 

IP  PimAV(2,M,L)  CT  TEW 

TEEM 

TEW  -  PIXTEAV(2>H,L); 

EUH1HD  -  M; 

muni  -  L; 

EMOLOOT; 
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IF  M  NE  FIJCIND 
BM 

it  pimtime  nxnAV(2,umm,n) 

THEM  PIMTIME  *  FI  FT  DOS  +  SAFESEP ;  (contribution  of  current  configuration  to 

transition  duration) 

EMDLOOP; 

FimAV(2,KUNIND,  FIXUD)  »  FI  FT  IKE; 

TEAM  ST  IKE  -  MAX(  PIMTIME ,  CURT  IKE);  {transition  duration) 

IF  TRANSTIHE  g^  CUETIME  (If  transition  duration  la  driven  f ran  current  configuration) 

THEM 

[conpute  variables  for  currant  configuration) 

VAS1  «  0; 

LOOP;  |L  -  1  to  6) 

LOOP;  (L  -  I  to  6) 

IF  FIXtlAV  U.M.l)  W  0 

THEM  VAEl(L)  -  FIXTIAVCI.M.L); 

EHPLOOF; 

EMDLOOP; 

LOW;  (M  -  7  to  VAUHIM1) 

VAEl(M)  -  CUETIME 
EMDLOOP; 

TEAMCAF  -  0; 

LOW;  (T  -  1  to  VAEMUM1) 
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TRANCAP  -  TRAMCAF  +  DEHl(T)»VAH(T>/60. ;  [conpute  transition  capacity) 
EMDUjOP ; 

im  (If  transition  duration  la  drlvan  Iron  final  configuration] 

VAR1  -  0; 

LOOP;  (H  -  1  to  3] 

LOOP:  (L  -  1  to  6] 

IP  FIXTRAV(1,M,L)  RE  0 

THEM  TAU(L)  -  FIXTRAVU.M.L); 

EHDLOOP; 

EMDLOOP; 

LOOP:  (M  -  7  to  VAIM0M1)  (conputa  rarlablaa  for  currant  configuration] 
VAE1<M)  «  CUttlKj 
EHPLOOP; 

COUNT  -  1; 

LOOP:  (M  -  1  to  3] 

LOOP  (L  -  1  to  i) 

IP  F1XRAV(2,M,L)  MB  0 
THEM 

IP  PimAV(2,M,L)  CT  CURT  IKE 
THEM  F( COUNT)  -  L; 

COUNT  -  COUNT  +  l! 


oze-; 


ENDLOOP; 

END LOOP: 

[compute  transition  capacity) 

TRANCAP  -  0.; 

LOOP;  T  -  1  to  VARNUK1 | 

TRANCAP  -  TRANCAP  +  DEMl(T)*VARl(T)/60. ; 

BNOLOOP; 

CONST  -  PINTIME  -  CURTIMK; 

LOOP;  [T  -  1  to  VARNUM2) 

FLAG  -  '0*1; 

LOOP;  (K  -1  to  COUNT  -  1) 

IF  TtJ  FCK) 

THEN  FLAG  •  'l'l; 

END LOOP; 

UF  FLAG  E£  'O'R 

THEN  TRANCAP  -  TRANCAP  +  DRK2(T)*CuNST/60. 

ENDLOOP; 


END  SPTRAN; 


uc-; 


ROUTINE  CALC 


IN  (ROWMAX,  COLUMMAX,  VARNUM1 ,  VARMUM2,  COHFIGDATA,  DEPHAT,  DEM,  TRAVTIM,  FIX); 

OUT  ( TRANSTIME,  TRAMCAP); 

[This  routine  coaputea  IP  eolutlon  uelng  special  algorltha,  alto  transition  duration  la  coaputed) 

CURCOMF  -  1; 

F INCOME  -  2; 

FIXTRAV  -  FIX; 

DEPMAT  *  DEPHAT/ 60. i  (conversion  froa  seconds  to  alnute] 

IF  (COMFIGDATA(l.l)  E£  CONFICDATA(2,l))  AND  (CONPICDATA(l ,2)  E£  C0NFIGDATA(2.2))  AMD 
(C0NPICDATA(1 ,3)  Eg  CONFIGDATA(2,3)) 

THEN 


ro 


CALL  ADJUST; 

IN  (TIAVTIM,  CONFIGDATA,  DEPMAT,  DEM); 

OUT  (TRAN  ST  IKE,  TRAMCAP); 

[If  both  configurations  in  transition  have  a aae  arrival  runways  then  routine  ADJST 
usee  a  different  aigorltha  to  coapute  transition  duration  and  capacity] 


ELSE 

CALL  DUE; 

III  (CONFIGDATA.DEPMAT.FIXmV); 

OUT  (TFLAG,  TRAN  STUB); 

[This  routine  coaputea  transition  duration] 

TRAVTIM  -  TRAVTIM/60. ;  [conversion  froa  seconds  to  alnutes] 

IF  SUM(TRAVTIM)  NE  0  [aodlfy  transition  duration  with  lnforaatlon  on  current  departure 
queues] 

THEM 

COMPARE X  -  0; 
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LOOP;  (H  -  1  to  4) 

IP  TRAVTIM(tf)  GT  COMPAREX 

THEM  COMP  AMEX  -  TRAVTIM<¥) 

END LOOP ; 

IP  COMPAREX  GE  60. 

THEM  COMPAREX  -  59; 

IP  TPLAG  -  0; 

TURNIP  COMPAREX  GT  TRANSTIME 

THEM  TRANSTIMF.  -  COMPARER; 

ELSEIP  COMPAREX  GT  (TRAMSTIME  -  SAFESEP) 

THEM  TRANSTIME  -  COMPAREX; 

IP  TRANSTIME  GB  60; 

THEM  TRAMSTIME  -  59; 

IP  (COMFIGDATA(l.l)  ME  C0HPIC0ATA(2,1))  OR  (C0NPIGDATAU.2)  ME  COMP ICDATA( 2.2))  OR 
—  (C0NPIG0ATA(1,3)  ME  COHFIGOATA(2.3)) 

THEM 

EDM  -  0; 

CALL  EDP, 

IN  (ROWMAX,  COLUMMMAX.  DEPMAT.  CONPICDATA,  PIXTRAV); 

OUT  (EDM); 

(Thle  routine  prepare*  expended  dependence  ■etrixj 
[Coapute  upper bound  conetrelnte) 
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LOOP;  [I  -  1  to  VARNUH2) 

UB2(I)  -  TRANSTIME 
EMDLOOP; 

LOOP;  (  -  1  to  7J 

COMPARE!  «  0; 

LOOP;  [J  -  '  to  7| 

IP  DEPMAT  (I,J)  GT  COMPARE! 

THEM  COMPARE!  -  DEPMAT(I.J); 

EMDLOOP; 

MAEDELAY(l)  -  COMPARE!; 

EMDLOOP; 

LOOP;  ([I  -  1  to  6| 

LOOP;  [J  -  1  to  3J 

IP  PI!TRAV(CURCONP,J.I)  ME  0 

THEM  UBl(I)  -  TRANSTIME  -  MAIDELAY(J)  -  PIITRAVICURCOMP.J.I) 
IP  ABS(U»1(I))  LT  .001 
THEM  UBI(I)  -  0 

EMDLOOP; 

EMDLOOP; 

IP  C0MTICDATA(1 ,3)  ME  0 
THEM  13  -  3; 


I 
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ELSE  13  *  A; 

LOOP;  [I  «  7  to  vAunnui 

UB1(I)  •  T»AK  ST  IKE  -  MAID  ELAT  (I  “  13)  ~  TIA»TIM(I  -  6) 
KMPLOOP * 

- (deteralo*  Initial  aolutiona  for  LP  rariablea) 

LOOP;  (M  -  1  to  VARMUM1] 

COMPARE  -  0; 

LOOP;  [I  •  1  to  VAUWM1] 

IP  11111(11,11)  GT  COMPARE 

THEM  COMPARE  -  IBl(K.M) ; 

EMDLOQP; 

VAR2(M)  -  COMP  AIR; 

EMDLOQP; 

LOOP;  (M  «  1  to  VAIWIMI) 

COMPARE  -  TRAKSTXME; 

LOOP  (M  -  1  to  VARMUM2] 

IF  <M  E£  N)  OR  (EDM(M.H))  ME  0 

INDEX  »  MIN((»AE2(N)  -  EDI1(M,B)),0>1(M)); 
IP  INDEX  LT  COMPARE 

THEN  COMPARE  -  INDEX; 

EMDLOQP; 


i 
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VARl(M)  »  COMPARE; 

BNDLOOP ; 

PBEPOEM  LPALCORITHHITERATIONS; 

[coapute  final  tranaitlon  capacity  ualng  LP  aolutlon  and  transition  duration) 

TKAMCAP  -  OBJ  FUN  (DEMI,  DEK2,  TRANSTIME,  VAR1 ,  VAR2,  FIXTRAV,  VARMUM1 ,  VARNUM2,  COHFICDATA, 
TRAVTIM); 

END  CALC; 
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PROCESS  LP_ALGORITHM_ITE RATION 

(This  process  perfons  LP  algorithm) 

TEMP  -  *B; 

LOOP;  [I  -  1  To  VAMUM2] 

TEMP  -  TEMP  CONCATENATE  'O'B; 

END LOOP; 

[construct  s  matrix  with  seroes  sod  ooss;  l's  along  diagonal] 

CUT  «  0; 

ALT  -  0; 

REPEAT  IIMTIL  (FLAG  EJ  0); 

CUT  ■  CMT  +  1; 

FLAG  -  0; 

LOOP;  [I  •  1  to  VARNUM1] 

LOOP;  [J  -  1  to  VARNUM2] 

IF  ((I  Eg  J)  OR  (EOM(I.J)  ME  0))  AMD  (VAR2(J)  -  VAR1(I)  Eg  EDM(I.J)) 
THEM  ALT(I.J)  -  1; 

ELSE  ALT(I,J)  -  0; 

IMPLOOP; 


ALT1  -  ALT; 

comrm  -  0; 

ROM  -  *»; 

COL  ■  "I; 

(construct  hit  strings  with  rows  sad  columns  of  matrix  ALT) 
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LOOP  II  -  1  to  VMUfUM  11 

LOOP;  (J  »  1  to  VARNUM  2) 

IT  ALTl(I.J)  1 
THEM 

COUNTER  -  COUNTER  +  1» 

ALTX(I.J)  -  -l; 

LOOP;  (E  »  1  to  FARIRJN  2J 

IF  ALTl(I.E)  HE  0 

~  COL(  COUNTER)  -  COL(COOmR)  CONCATENATE  'l't 

alti(i.r)  -  -l; 

ELSE  COL(COUNTER)  -  COL( COUNTER)  CONCATENATE  *0’*; 

ENMjOOP; 

LOOP;  JR  “  X  to  VARJRJM1] 

IF  ALTX(E.J)  N*  0 
THEM 

ftOW( COUNTER)  ■  K(M(COUMTBR)  COHCATMATE 
ALTl(K.J)  -  -1; 

~  ION  (COUNTER)  •  RflW(COarCER)  CONCATENATE  'O'R; 

ENDLOOP; 

IF  COUNTER  CT  1 
THEN 

L  •  COUNTER; 


2-378 


LOOP;  f K  -  COUNTER  -  1  To  1  BY  -  1J 

AUX1  -  ROV(L)  AND  KOW(K); 

AUX2  -  COL(L)  AND  COL(R); 


IP  (AUXI  GT  0)  OR  (AUX2  GT  0) 

THEN 

ROW(E)  -  RON(K)  OR  ROW(L) 
COL(K)  -  COL(R)  OR  COL(L) 
ROtf(L)  -  "I; 

COL(L)  -  ■»; 

IND  -  0; 


LOOP;  (K  -  1  to  COUNTER] 
IP  TEMPl(E)  NE  “B 
THEN 

IND  -  IND 
ROW  (IX))  - 
COL(IND)  - 


ENDLOOP; 
COUNTER  -  IND; 


ENDLOOP; 


ENDLOOP; 
EtffiLOOP;  . 


ST  -  -B 

LOOP;  (R  -  1  to  VAENUM1) 

LOW;  [Q  -  1  to  VARNUM  2] 

IP  ALT(R.Q)  Eg  1 

THEN  ST(R)  -  ST(R)  CONCATENATE  U'E; 


►  i; 

THMPl(E); 

TEMP2(K); 
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ELSE  ST(R)  -  ST(R)  CONCATENATE  'O'R; 
ENDLOOP; 

ENDLOOP; 

LOOP;  [I  •  1  to  COUNTER] 

ROUSTCK  »  0; 

COL COUNT  -  0; 

COUNT  -  0; 

LOOP;  (Q  »  1  to  VARNUM1] 

IP  SUISTR(R0U(I),Q,1)  *1'E 
THEN 

COUNT  -  COUNT  +  1; 

ROW STCE (COUNT)  -  Q; 

ENDLOOP; 

LOOP;  [I  ■  1  to  COUNT] 

Q  -  ROUSTCK(R); 

COLCOUNTER  -  0; 

LOOP;  [S  -  1  to  VARNUM2 ] 

IP  ALT(Q.S)  EJ  1 

THEN  COLCOUNTER  -  COLCOUNTER  +  1 

ENDLOOP; 

COLCOUNT(R)  •  COLCOUNTER; 

ENDLOOP; 
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I 


LOOP;  [Q  •  2  to  COUNT) 

QQ  -  Q! 

SOIT  FLAC  -  0 

■KPKAT  Will  ((QQ  CE  1)  AND  ( SONT_PLAG  BJ  0)); 
IP  COLCOUNT  (QQ )  CiT  COLCOUNT (QQ  -  1) 


TTEMP1  -  CODCOUWT(QQ-l); 

TTIMP2  «  BOMSTCKQQ-l); 
COLCOUNT  (QQ-1)  •  COLCOUNT(QQ); 
BOHSTCK(QQ-l)  ■  EOWSTCE(QQ) 
COLCOUNT (QQ)  -  TTINP1; 
KOtfSTCK(QQ)  -  TTEMP2; 

QQ  -  QQ  "  I  S 

ELSE  80tr_ruc  “  1; 

BHDBBPBAT; 

EMDLOOP; 

SUBCOUNT  -  COUNT; 

P8UDEN  -  DEMI; 

ALTIOWSTCX  -  0 
IMD3  -  0; 

LOOP;  IQ  -  1  to  COUNT) 

IP  PSUD«M(*flWSTC»(Q))  n  0 

gn 

IND3  -  IMD3  +  11 
ALTBOHSTCX(IND3)  -  BONSTOUQ); 

QQ  “  Qi 


» 
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LOOP;  [1  ■  QQ  ♦  1  to  COUNT] 

IP  ST(ROWSTCK(Q))  £2  ST(ROUSTCE(R)> 

PSUMM(ROUST(X(Q)  -  PSUDEM(ROHSTOC(Q))+Dmi(«*BT(X(«)); 
PSUDDS( ROUSTCK R) )  “  0; 

SUBCOUNT  -  SU1C0UNT  -  1; 

END LOOP; 


EHDIOOP; 

ROUST  CX  -  ALTROUSTCX; 

COUNT  -  SU1C0UNT; 

X  *  0; 

IND1  -  0; 

LOOP;  [Q  ■  1  to  COUNT] 

IRD2  -  i; 

UD1  -  IND1  +  li 

KINDI,  IND2)  -  R0U8TCXCQ); 

LOOP;  (I  -  Q  +  1  to  COUNT) 

ip  (n(ROUSTCX(Q)>  OR  ST(ROUSTOE(R>)  Rft  ST(ROUST CX(Q)) 
THEN 

~  IUD2  -  IH02  +15 

X(IND1,  IND2)  -  ROUSTCK(R); 

ENDLOOP; 

END  LOOP; 


IP  ST(R0USTCR(1))  NR  COL(I> 
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THEM 

IMDX  •  IND1  +  1; 

WOP;  IQ  -  1  to  COUNT] 

X(IND1,  Q)  -  ROUSTCK(Q); 

EHDWOP; 

SFLAG  -  0; 

KEPBAI  WHILE  (SFLAG  EJ  0);  [I  ■  1  to  INM) 

ADD1  -  0; 

ADD2  -  0; 

HEVST  -  "B; 

REPEAT  WHILE  (KE.Q)  HE  0);  (Q  -  1  to  IND2] 

ADD1  -  ADD1  ♦  PSUDEH(X(t,Q)); 

NENST  -  NEW  ST  OR  ST(X(K,Q))} 

EHDREPEAT; 

LOOP;  (T  -  l  to  VARNUM  2] 

IF  SUBSTR(NEWST,T,1>  E£  'l’B 
THEN  ADD2  -  ADD2  +  DEM2(T); 

END LOOP; 

IF  ADD2  LT  ADD1; 

THEN 

UPSLCK2  -  9999.; 

UPSLCK2  -  9999.; 

NINSLCK  -  9999; 

REPEAT  WHILE  (X(R,Q)  «  0>;  |Q  -  I  to  10] 


LOOP  (H  •  1  to  VABNUM2) 

IP  SUBSTR(ST(X(R,Q),W,1)  EJ  *0’B 
THEM 

IP  (EDM(X(R,Q),H)  HE  0)  OR  X(R.Q)  EJ  If) 

THEM 

SLCK  -  VAK2(tf)  -  VAR1(W)  -  EDM(X(R,Q)  ,H) 
HIMSLCK  -  H1H(  SLCK.MIHSLCK); 

ELSE 

SLCK  -  UB2(W)  -  VAR2(W); 

UPSLCK2  -  MIN(SLCK,UPSLCK2); 

KWDLOOP; 

SLCK  -  OSICK(E.Q)  -  V4K1(I« ,Q»{ 

DPSLCK1  -  MXH(SLCK,UPSLCU)i 

EHPREPEAT; 

ABSKIM  -  MIN(KU8LCXIUPSLCKI  ,UPSLCK2) ; 

IP  AISMIM  CT  .001 
THEM 

PLAG  -  1; 

SPUG  -  1; 

REPEAT  WHILE  (X(R,Q)  HE  0)  [Q  -  1  to  VARMUM1] 
VAJU(X(R,Q»  -  VAE1(X(K.Q>>  +  ABS1IIH; 

EHDHEPEAT; 

LOOP;  IH  -  1  to  PAROTIC] 

IP  S0B8TK(HENST.H.l)  EJJ,  UMI 

THEM  VAR2(W)  »  VAR2(W)  +  AB8KIH; 
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ENDREPEAT ; 


END LOOP; 

END REPEAT; 

END  LPALGORITHMITE  RATION; 


i 
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ROUTINE  DUR 

IN  (CONFICDATA,  DEPMAT,  FIXTRAV); 

OUT  (TFLAG,  TRANSTIME); 

{This  routine  coaputes  transition  duration) 

TFLAG  -  0; 

CURCONF  -  1; 

FINCONF  -  2; 

SAFESEP  -  3; 

MAXDELAY  »  0;  [coapute  contribution  of  current  configuration  to  transition  duration) 
LOOP;  [I  -  1  To  77) 

COMP ARE 1  -  0; 

IF  C0NP1GDATA( CURCONF , I )  HE  0 

THEN 

LOOP  (J  -  I  to  7) 

IF  D8PKAT(I,J)  GT  C0MPARE1; 

THEN  00MPARE1  -  DEPMAT(I.J); 

ENDLOOP; 

MAXOELAY(I)  -  C0MPARE1; 

ENDLOOP; 

COMP AR El  -  0; 

REPEAT  WHILE  ( CONFICDATA( CURCONF , I )  NE  0);  [I  -  1  to  3) 

COMPARB2  -  0; 

LOOP;  {J  -  1  To  6) 
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IF  PIXTRAV(CURCONP,I,J)  NE  0 

THEMIP  FIXTRAV(CU8C0NF,I,J)  GT  C0MPARE2 
THEN 

C0MPARE2  «  F IXTRAV  (  CURCOHF ,  I ,  J  )  ; 

FIXIHDICATOR  -  J; 

RUNINDICATOR  -  I; 

END  LOOP; 

CO  HP  ARE  2  -  COMPARE2  +  MAXDELAY(l) ; 

IF  COMPARE2  GT  OOMPAREI 
THEN 

COMP  ARBI  -  COMP  ARE2  ; 

FIXINDICATORl  •  FIXINDICATOR; 

RUN  INDICATORl  -  RUN  INICATOR 

EMDREPEAT; 

CURTIME  -  COMPARE!; 

LOOP;  [I  -  4  to  7| 

IF  CURTIME  LT  MAXDELAY(I) 

THEN  CURTIME  -  MAXDELAY(I); 

EMDLOOP; 

[coapute  contribution  of  final  configuration  to  tranaltlon  duration) 
COMPARE]  -  0; 

REPEAT  WHILE  ( GONFIGDATA( FINCONF , I )  NE  0);  [I  -  1  to  3) 

COMPARE2  -  0; 

LOOP;  (J  -  1  to  6] 

IF  FIXTRAV(F1NC0NF,I,J)  NE  0 


THEN  IF  FIXTRAV(FINCONF,I,J)  OT  COMPARE? 
THEN 

COHPA1E2  -  FIXTRAV(FINCONP,I.J); 
FIX  INDICATOR  -  J; 

RUN  INDICATOR  •  I; 


EHDLOOP; 

IF  COMPARE2  CT  COMPARE  1 


THEN 

COMP  ARBI  *  COMPARE?; 

FIX  INDICATOR1  •  PIX_INDICATOR; 
RUN  INDICATOR?  “  RUN_INDICATOR; 


ENDREPEAT; 


FINTIME  -  CQMPAREI ; 

Icoaputa  transition  duration] 

IF  CURTIME  CT  FIMTIW 

THEM 

TRANSTINE  -  CURTIME; 

FIX  INDICATOR  -  PIX_INDICATORl; 

RUN  IND1CATOR  -  RUN_INDICATORl ; 

DUMMY  -  TRANSTU«_MAXDBLAY(RUN_IHDICAT0R1); 

LOOT;  II  -  1  to  6 1 

IF  (DUMMY  F I XTRAV ( CimCONF , RUN_I NDI CATORI , I ) )  At®  I  NB  FIX  INDICATORl 

THEM 

TRANSTIME  ■  TRANSTIME  +  SAFESRP; 

TFLAC  •  Ij 


END  LOOP; 
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ELSEIF  FINT1ME  GT  CUETIW 
THEM 

TRANSTIME  -  PINTIME; 

DUMMY  -  TRANSTIME; 

LOOP;  (I  -  1  to  61 

IF  (DUMMY  Kg  FIXTRAV(FINCONF,  RUNINDICATORl .  I))  AND  (I  NR  FIX_IM>ICATO«2) 
THEM 

TRANSTIME  -  TRANSTIKE  +  SAFESEP; 

TFLAC  -  1; 


END  LOOP; 

ELSE 

TRANSTIME  -  CURTIME; 

DUMMY  -  TRANSTIME  -  KAZDELAY  ( RUNINDICATORl ) ; 

LOOP;  (1  -  1  to  61 

IF  (DUMMY  EJ  FIXTRAV (CURCONF ,  RUN_lMDICATORl 1  I))  A®  (I  NE  FIX_IMDICATORl ) 
THEM 

- TRANSTIME  -  TRANSTIME  +  SAFESEP; 

TFLAC  -  1; 

EHPLOOP; 

DUMMY  -  TRAM  ST  I W; 

LOOP;  (I  •  1  to  6] 

IF  (DUMMY  E|J  FIXTRAV(FINCONF,  RUN_INDICATOR2,  I))  AND  (I  NE  FIX_H»ICATOR2) 
THEM 

TRANSTIME  -  TRANSTIME  +  SAFESEP; 

TFLAC  -  1; 

EMPLOOP; 


END  DUE; 
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ROUTINE  ADJST 

IN  (TRAVTIM,  CONFIGDATA,  DEPMAT,  DEM); 

OUT  (TRANSTIME,  TRANCAP); 

[If  two  configurations  in  transition  have  same  arrival  runways  then  routine  ADJST  uses  e  different 
algorithm  to  coapute  transition  duration  and  capacity) 

TRANSTIME  -  0; 

TRANCAP  -  0; 

LOOP;  (X  -  A  to  7) 

COMPARE  -  0; 

LOOP;  (J  -  1  to  71 

IF  DEPMAT(t.J)  GT  COMPARE 

THEM  COMPARE  -  DEPNAT(l.J); 

EHDLOOP; 

MAXDELAT(I-3)  -  COMPARE; 

EHDLOOP; 

ITEMP  -  0; 

LOOP;  )I  -  1  to  A) 

TEMP  -  TRAVTZH(I)  ♦  MAXDCLAT(I); 

ITEMP  -  MAX  (ITEMP,  TEMP); 

EMDLOOP; 

TRANSTIME  -  ITEMP; 

IF  TRAM STINE  NE  0; 
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THEM 

CAP  •  0; 

LOOP;  [I  -  1  to  10] 

CAP  -  CAP  +  DEM(I,  I); 
EMDLOOP; 

TRANCAP  -  CAP  *  (  TRANSTIME / 60 > 

END  ADJST; 
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ROUTINE  KDP 

IN  (ROWHAX,  COLUMMAX,  DEFMAT,  CONFIGDATA,  FIXTRAY) ; 

OUT  (SDN); 

[This  routine  prepares  expanded  dependence  matrix) 

cuscour  -  1; 

FINCONF  -  2; 

SAFESEF  -  3; 

(Initialisation) 

][F  CONFIGDATA  (CURCONF.3)  NS  0 

THEN  II  ■  3;  (number  of  arrival  runuaps  in  current  configuration) 
ELSE  II  -  2; 

IF  CONFICDATA(CDRCONF,7)  HE  0 
THEN  12  -  A; 

ELSEIF  GOMFlCDATAtCURCONF,  6)  NE  0 
THEN  12  -  3; 

ELSE  12  -  2; 

IF  CONF ICDATA( F IHCONF ,  3)  HE  0 

THEN  J1  -  3;  (number  of  arrival  runuaFi  In  final  configuration) 
ELSE  J1  -  2; 

IF  OONFICDATA(FINCONP,  7)  NB  0 
THEN  J2  -  *; 

ELSEIF  C0NF1GDATA( FINCONF ,  6)  NE  0 
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THEM  J2  -  3; 

ELSE  J2  -  2; 

IF  II  E£  2 

THEM  13  -  4; 

ELSE  13  -  3; 

IT  J1  E£  2 

THEM  J3  “  4; 

ELSE  J3  -  3; 

LOOP;  [I  -  X  to  Ill 
INDEX1  -  1; 

LOOP;  IE  -  1  to  61 

ir  rimAV(coEOOMP,  i,  e)  me  o 

THEM 

EECOEDi  (IMDEX1)  -  E 
I  NOE  XI  -  INDEX1  ♦  1; 

EMPLOOP; 

LOOP;  (J  -  l  to  Ji} 

INDEX2  •  1; 

LOOP;  IE  -  i  to  6] 

IP  PIXTEAV(CIMCOMP ,  J,  E)  ME  0 
THEM 

RBCOED2(INDEX2)  -  E; 
1HDEX2  -  INDEX 2  +  l; 


i 
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EHDLOOP; 

LOOP;  [L  -  1  to  IMDBX1  -  1 

LOOP;  (N  -  1  to  INDBX2  -  1) 

EDM(REC0RD1(L>,REC0RD2(M))  -  DEPMAT(I.J); 
EHDLOOP; 

EHDLOOP; 

EMDUOOP; 

EMDLOOP; 

LOOP;  [L  -  11  +  1  to  ROHHAX] 

LOOP;  |K  •  i  to  coummaxj 
IP  R  LB  J1 
THKH; 

LOOP;  (N  -  I  to  6] 

ip  pizmvcrmcoHP.R.M)  «  o 

1HEM 

EMML+n.M)  -  OEPMATO+L-Il.E); 

EMDLOOP; 

EMDLOOP; 

EMDLOOP; 

LOOP;  (L  -  J1  +  1  to  COLUKHMAX) 

LOOP;  |(  •  1  to  ROWNAE) 


1 
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IP  K  LE  n 
THEM 

LOOP;  JM  -  1  to  6) 

IP  PIXTRAV(CURCOKP,K,M)  HR  0 

THEM  EDH(H,L  +  J3)  “  DEPMAT(E,L+3-Jl) 

E HD LOOP; 

END LOOP; 

END  LOOP; 

LOOP;  [L  -  II  +  1  to  ROUMAX] 

LOOP;  |N  m  J1  +  I  to  COLUMNMAX) 

EDM(L  +  13,  N  +  J3)  -  DEPMAT(L+3-Il.  H+3-J1); 

EHDLOOP; 

ENOLOOP; 

LOOP;  [I  •  1  to  6} 

IP  EDN(K.K)  El  0. 

THEN 

LOOP;  IL  -  1  to  JIJ 

IP  PIXTRAV(PIHCOHf,L,r)  HE  0 

THEN  EDM(K,  K)  •  PIimV(PIHCOHP,L,E); 

EHDLOOP; 

ELSE 
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LOOP;  [L  -  1  to  II J 

IF  FIXTVAV(CUftCONF  ,L,K)  HE  0 

THEM  EDM(K.K)  -  E0M(K,K)  +  FimAV(CUReONF,L,E); 

EHDLOOP; 

E HD LOOP; 

LOOP;  [I  -  1  to  6{ 

LOOP;  [J  ■  1  M  W-J2] 

IP  (EDH<I,J)  HE  0)  AMD  (I  HE  J) 

THEM 

LOOP;  |K  -  1  to  11] 

IP  F IXTIAV ( CU*C0HP ,  K ,  I )  MC  0 

THEM  BOM(l.J)  -  EDM(I.J)  +  FIETHAV  (CURCONF.K.I); 
EHDLOOP; 

EHDLOOP 

EHDLOOP; 

END  EDP; 


; 


J 
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FUNCTION  OBJ FUN 

IN  (DEMI,  DEM2,  TRANSTIME,  VAR1,  VAR2,  FIXTRAV,  VARNUKI,  VASNUM2, 

CONFICDATA,  TRAVTIM); 

OUT  (TRANCAP); 

[This  routine  conputes  value  of  objective  function  which  la  transition  capacity) 

CURCONF  -  1; 

CAP  -  0.; 

$ SIXTY  -  60; 

LOOP;  [I  -  1  to  VARNUH1] 

IF  I  LE  6 
THEM 

LOOP  [J  -  1  to  3] 

IF  FIXTRAV (CURCONF,  J,  I)  NEO 

THEN 

CAP  ”  CAP  +  (VAR1(I)  +  F IXTRAV ( CURCONF, J, I)  *  DEM1(I)/*SIXTY 

EMDLOOP; 

ELSE 

CAP  -  CAP  +  (TRAVTIM(I-6)  +  VAR1(I))*DEM1(I)/|SIXTT; 

ENDLOOP; 

TRANCAP  -  CAP; 

END  OBJ FUN; 


2.15  Configuration  Inforaatlon  Screen 


The  Configuration  Inforaatlon  Screen  is  presented  on  pages  2-398 
to  2-420. 
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(‘••LOCAL  VARIABLES***] 


STRUCTURE  CNFC_DATA(2)  LIKE  CONFIG 

(This  structure  Is  siallsr  to  CONFIG  used  internally  by  screen  progress] 

ENDSTRUCTURE; 

I NT  CINDEX(2)  (integers  containing  current  operating  configuration's  index  siallsr  to  CONFIND  used 
internally  by  screen  progress] 

INI  SVilTCH(2)  (This  variable  is  used  for  snitching  between  current  and  forecast  screens,  initialized  to 

-  (1,2)] 

STRUCTURE  CONFIG_LOADLIST  (A  structure  of  pointers,  one  for  each  data  field  on  screen  used  by  panel 

sanager  for  loading  and  unloading  to  and  fros  screen] 

PTR  TINE  [pointer  for  euvlronaent  data  field) 

GROUP  CONF 

PTR  ARR(12)  [pointer  for  arrival  runway  indicator  data  field) 

PTR  DEP(12)  (pointer  for  departure  runway  indicator  data  field] 

GROUP  TOTAL 

PTR  PCT_ARR  (pointer  for  total  percentage  of  arrivals  data  field] 

PTR  SAT  [pointer  for  total  saturation  data  field] 

GROUP  ARR 

PTR  Dm  [pointer  for  total  arrival  desand  data  field] 

PTR  CAP  [pointer  for  total  arrival  capacity  data  field] 
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GROUP  DEP 

PTR  DEM  (pointer  for  total  departure  demand  data  field] 

PTR  CAP  (pointer  for  total  departure  capacity  data  field] 

GROUP  NORTH 

PTR  PCT_ARR  [pointer  for  north  percentage  of  arrlvala  data  field] 
PTR  SAT  [pointer  for  north  saturation  data  field] 

GROUP  ARR 

PTR  DEM  [pointer  for  north  arrival  demand  data  field] 

PTR  CAP  [pointer  for  north  arrival  capacity  data  field] 

GROUP  SOUTH 

PTR  PCT_ARR  [pointer  for  aouth  percentage  of  arrivals  data  field] 
PTR  SAT  (pointer  for  south  saturation  data  field] 

GROUP  ARR 

PTR  DB<  [pointer  for  south  arrival  demand  data  field] 

PTR  CAP  [pointer  for  aouth  arrival  capacity  data  field) 

GROUP  DEM 

PTR  DEM  [pointer  for  south  departure  demand  data  field) 

PTR  CAP  (pointer  for  south  departure  capacity  data  field) 

CROUP  BALANCING 

PTR  AMOVE  [pointer  for  arrival  aircraft  moved  data  field] 

PTR  ACOMPLEX  (pointer  for  complex  data  field] 
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PTR  DMOVE  (pointer  for  departure  aircraft  aoved  data  field] 

PTR  DCOMPLEX  [pointer  for  coaplex  data  field] 

PTO  UHSGO  (pointer  for  1st  warning  aeasage  data  field] 

PTR  WMSG1  [pointer  for  2nd  warning  aeasage  data  field] 

PTR  WMSG2  [pointer  for  3rd  warning  aeasage  data  field] 

PTR  MSG  (pointer  for  screen  aeaaage  data  field] 

BITS  FENCE  [32  bit  variable  as  prescribed  by  DKS  annual,  Initialised  to  string  of  (32)  ‘i'B] 
ENDSTRUCTURK; 
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ROUTINE  CNFG 

IM  (CONFIG,  CNFGRQ,  PRCARR,  INFORM,  MIDFLAG,  RWYEQP); 

INPUT  (CONFIND,  RSTATUS,  I); 

l This  routine  invoices  configurstion  information  screen  for  both  current  and  forecast  environments] 

CNFG  DATA  -  CONFIG; 

CINDEx  -  CONFIND; 

REPEAT  UNTIL  (RSTATUS  NE  PP12); 

CNFG  DATA(I)  -  CONFIG(I); 

CINDEX(I)  -  CONFIND(I) ; 

I  “  SwlTCH(I);  {switch  between  two  screens] 

REPEAT  UNTIL  (RSTATUS  NE  PF9); 

I  -  SWITCH(I); 

CALL  C  SCREEN; 

IN  (QJFG_OATA(I),CINDEX(I), CNFGRQ,  PRCARR(I),  INFORM(I),  MIDFLAG(I) ,  RWYEQP(I)); 

INPUT  (RSTATUS); 

”*  ' l This  routine  controls  configuration  information  screen] 

ENDREPEAT; 

BNDREPEAT; 

LOOP;  [J  -  l  To  2] 

IF  SUBSTR(CNPC_DATA(J). MSG, 1,12)  EJ  'DATA  ENTERED* 

THEM 

CONFIG(J)  -  CONFG  DATA(J); 

CONFIND(J)  -  CINDfX(J); 

END  IDOP ; 

END  CNFG; 
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ROUTINE  CSCREEN 

IN  (CNFC_DATA(I),  CNFCRQ,  PRCARR(I),  PRCARR(I),  INPORM(I),  KIDFLAG(I) ,  RWYEQP(I))); 

INPUT  (CINDEX(I),  RSTATUS) ; 

(This  routine  controls  configuration  information  screen] 

CHR  PNAHE  (character  variable  of  length  8  containing  name  of  OHS  panel  initialised  to  ’CONF’ ,  name  of 
panel  that  controls  configuration  information  screen] 

INT  CURSOR  (integer  variable  containing  cursor's  position  on  screen] 

BITS  DH(S1)  [8  bit  variable  of  data  masks  used  in  DMS] 

BITS  TM(62)  (8  bit  variable  of  text  masks  used  in  DHS] 

STRUCTURE  AUX_DATA  LIKE  CNFCJBATA 

ENDSTRUCTURE; 

BITS  CID  [24  bit  variable  containing  current  operating  configuration] 

STRUCTURE  CNFG_LIST(73) 

BITS  ID  [24  bit  configuration  ID] 

ENDSTRUCTURE; 

STRUCTURE  MID(5) 

BITS  NUM  [24  bit  variable  indicating  runway  in  need  of  coordination  with  MIDWAY  airport] 

CHR  CHR  (character  representation  of  NUM] 

ENDSTRUCTURE; 

PERFORM  INITIALIZATION; 

AUX  DATA  -  CNFG_DATA(I) ,  BY  NAME; 


PERFORM  SET_UP_SCREEN_POINTERS_(CNPG); 

REPEAT  UNTIL  (RSTATUS  ME  ENTER); 

IF  FUG  E£  '0*  B 

THENIF  INFORM(I).CONF(CINDEX(I)). INDEX  LT  999 
THEM 

PERFORM  OUTPUT_SETJJP_(  TOTAL); 

PERFORM  OUTPUT_SET_UP_(MORTH ) ; 

PERFORM  OUTPUT_SET_UP_(  SOUTH ) ; 

PERFORM  OUTPUT_SET_UP_(BAUNCING_ARRIVALS) ; 

PBtFORH  OUTPUT_SETJJP_(BAUNCINC_DEPARTURi  ; 

PERFORM  OUTPUT_SET_UP_( OTHERS) ; 

ELSE 

LOOP;  [J  -  29  to  621 
TM(J)  •  FLDDARK; 

EMDLOOP; 

LOOP;  [J  -  26  to  *9J 
DM(J)  -  FLLOARK; 

EMDLOOP; 

CMFG_DATA(I).WMSG2  -  (29)'  ' CONCATENATE  ’THIS  CONFIGURATION  IS  INELIGIBLE' 
PERFORM  D1SPUYJ>ANEL; 

IF  RSTATUS  E2  PA1 
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ir 


* 


RSTATUS  HE  ENTS 

THEM  CNFG_DATA(I)  -  AUXJJATA,  BYNAME; 

ELSE 

FLAC  -  'O'B; 

TM  -  FLDDEF ; 

DM  -  FLDDEF ; 

DM(1)  -  FLDHIGH; 

DM(S2)  -  FLDHIGH; 

CALL  C CHECK; 

INPUT  (CNFC_DAIA<I),  CID,  CURSOR); 

[This  routine  cheeks  for  errors  occurred  on  screen  as  a  result  of  an  erroneous 
entry  and  returns  value  for  cursor  pointing  to  first  data  field  where  an  error 
has  occurred;  and  an  appropriate  screen  aessage  Is  Issued  advising  user  with 
corrections} 

IF  CNFG_DATA(J).MSC  HE  ‘DATA  ENTERED' 

THEN  DM(CURSOR)  -  FLDHIGH; 

ELSE 


CALL  C VALID; 

IN  (CNFG_LIST,  CID); 

INPUT  (CNFG_DATA(I),  CINDEX(I)); 

[This  routine  performs  data  validation  checks  on  screen  entries  and 
returns  value  for  cursor  pointing  to  first  Invalid  data  field.  Also, 
an  appropriate  screen  sassage  Is  Issued  advising  user  with 
corrections] 

IF  CNFC_DATA ( I ) . MSG  HE  'DATA  ENTERED* 

THEN 

FLAG  -  'I'D; 
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EKDREPEAT ; 


LOOP;  [J  -  29  to  621 
-  TH(J)  -  PLDDARX; 

END LOOP; 

LOOP;  IJ  “  26  to  501 
- DK(J>  -  FLDDARK; 

END LOOP; 


ELSE 


CALL  CUPDATE; 


INPUT 


(CNFG  DATA(I»S 
This  routine  performs 


local  updates  on  screen 1 


CHFG_pATA(I).KSG  -  'DATA  ENTERED  AT  *  CONCATENATE  CM; 
AUX  DATA  *  CKTC_DATA(I),  BT  NAME; 


END  CSCREEN; 
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PROCESS  INITIALIZATION; 

ffhls  process  performs  a  number  of  necessary  Initialisations) 

♦THREE  -  3s 
FLAG  -  *0'B; 

DM  -  FLDDEF ; 

TM  -  FLDDEF; 

DM(1)  -  FLDHIGH ; 

DM(51)  -  FLDHIGH; 

CNFG  LIST  •  CNFGRQ,  BY  NAME; 

CURSOR  -  2; 

LOOP;  (J  •  1  to  12) 

IF  SUBSTR(CNFGRQ(CIN»EX(I)).ID,J,1>  *2  '!*• 

THEM 

CNFCJDATAI I ) .COHF . ARR( J)  “  *X 
ELSE  CNFG_DATA(I).CONF.ARR(J)  “  (2)'  ’» 

IF  SUBSTR(CU©EX(I)).ID,J+12,1)  12  '1**» 
THEN  CNFGDATA(l) .CONF.DEP(J)  -  ’X 
ELSE  CNFC_BATACI).CONF.DEP(J)  "  (2)'  *1 

ENDLQOP; 

MIDIND  -  ' 110000000001000010010000 ' B; 

MID(I) .NUM  -  ’ 100000000000000000000000* ; 

MI0(2).NUM  -  *010000000000000000000000*8; 

HID(3).NUM  •  *000000000001000000000000*8; 

M1D(A) .HIM  -  *000000000000000010000000* •; 

MID(5).NUM  -  *000000000000000000010000*8; 
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1 


HID(1).CHR 

-  *4R  ARR'i 

M1D(2).CHR 

-  *4L  ARR'i 

MID(3).CI1R 

•  ' 32L  ARR' 

MID(4).CHR 

-  *14R  DEP' 

M1D(S).CHR 

-  '22L  DEP' 

HIRL(l)  “ 

■4R'i 

HIRL(2)  » 

•4L'i 

HIRL(3)  * 

•9R'; 

HIRL(4)  * 

•9L'; 

HIRL(S)  - 

•14R'i 

HIRL(6)  • 

•X4t's 

HIRL(7)  - 

•22R'i 

HIRU8)  - 

•22L' ; 

HIRL(9)  * 

•27R'i 

HIRL(lO)  - 

•27L'i 

HIRL(U)  * 

•32R'i 

HIM.U2)  * 

•32L'i 

END  INITIALIZATION; 
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PROCESS  SET_UP_SCREEN_POINTERS_(CNFC); 

[this  process  sets  up  screen  pointers  for  DMS  use] 

CONFIC_LO  ADUST. TIME  “  AD0RCCNFG_DATA(I)  .TIME)  j 

LOOP;  [J  -  1  to  12] 

C0NF1G_L0ADUST.C0NP.ARR(J)  -  AD0&(CNFG  DATACl). CONF.ARR(J)); 
CONFIG_LOADLIST.CONF.ARR(J)  -  ADORCCNFG- DATA(l)  .CONF.DEP(J))  ; 


END LOOP; 

CONFIG  LOADUST. TOTAL. SAT  -  ADORCCNFG  DATA(I). TOTAL. SAT)  ; 
CONFIG~LOADUST.TOIAL.PCT  ARR  -  ADORCCNFG  DATA(I) . TOTAL. PCT  ARE); 

CONF IG~L0ADLI ST . TOTAL .ARRTLEM  -  ADOR(CNFG~ ))ATA(I )  .TOTAL. ARRTDEM) ; 

CONF IG~LOADU ST . TOTAL . ARR . CAP  -  ADDR(CNFG— DATA(I)  .TOTAL. ARR. CAP)  ; 

CONFIG  LOADUST. TOT AL.OEP. DEN  -  ASDR(CNFG~ DATA(I). TOTAL. DEP. DEM); 
C0NF1G~L0ADUST.T0IAL.DRP .CAP  -  ADDR(CNFG  1 DATA(I)  . TOTAL. DEP. CAP ) ; 
CONFIG~LOAM.IST.NORTN.SAT  -  ADOR(CNFG  DATiCl). NORTH. SAT)  j 
CONFIG~LOADUST.NOUN.PCT  ARR  -  ADDR(OJFG  DATA(I) .NORTH.PCT  ARR); 
CONFICIOADUST.NORTH.ARRTDEK  -  AOORCCNFG~DATA(I) .NORTH. ARR7DEN) ; 
CONFIG~LOADUST.NORTN.ARR.CAP  -  ADDR(CNFC~DATA(1). NORTH. ARR.CAP); 
CONFIG~LOADUST.NORTH.DRP.WN  -  ADDR(CNFG~I DATA(I).NORTH.DEP.DEM); 
CONFIG~LOADUST.NORIH.DRP.CAP  -  ADDR(CNFG~1 DATACl). NORTH. DEP. CAP); 

CONF IG~LO ADL1  ST . SOUTH . SAT  -  ADOR(CNFG  DATJCCD  .SOUTH.  SAT) ; 

CONFIG  LOADUST. SOUTH. PCT  ARR  -  ADORCCNFG  DATA (I). SOUTH. PCT  ARR); 
CONFICTLOADUST . SOUTH . ARRTDEM  -  ADOR(CNFG~DATA(I). SOUTH. ARrTDEM); 
CONF1G~LOADUST.SOUTH.A8R. CAP  -  ADDR(CNFG~DATA(I)  .SOUTH. ARR.CAP)  ; 
CONFIG~LOADLIST.SOUTH.DRP.DEN  -  ADDR(CNFG~DATA(1). SOUTH. DEP. DEN); 
CONFIG~LOADUST.SOUTH.DRP.CAP  -  ADDR( CNFG~DATA( I ) . SOUTH . DEP . CAP )  ; 
CONFIG~LOADLIST. BALANCING. AMOVE-  ADDRCCNFC  DATA(I). BALANCING. AMOVE)  ; 

CONFIG  LOADUST.  BALANCING.  ACOKPLEX  -  ADORCCNFG  DAEA< I). BALANCING .ACOMPLEX) 
CONFIG- LOADUST. BALANCING. DHOVE-  ADORCCNFG  DATACl). BALANCING. DNOVE) ; 
CONFIG- LOADUST. BALANCING. DCONPLEX  -  ADDRCQlFG  DATA(I).BALANCING.DCONPLEX) 
CONFIG- LOADUST. HMSGO  -  ADORCCNFG  DATA(I).HHSg7); 

CONFIG- LOADUST. UKSG1  -  ADDR C CNFC~DATA( I ) . WMSC1 ) ; 

CONFIG- LOADUST. HMSG2  -  AD0R(CNFC~DATA(I).UNSG2); 

CONFIG- LOADUST.MSG  •  ADDR(CNFG_dStACI)  .NSG) ; 

END  SRT_UP  SCREEN  POINTERS  CCMFG); 
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PROCESS  OUTPUT_SET_UP_(  TOTAL) 

[This  process  sets  up  screen  varieble  with  total  airport  information! 

IF  PRCARR(I).CONF(CINDEX(I)).BNPRCNT  W  0. 

THEM 

CNFC_DATA(I).WHSGO  -  (29)'  '  CONCATENATE'***  SATURATED  ***' 

LOOP;  [J  -  57  to  621 
TM(J)  -  FLDDARK; 

ENDLOOP; 

LOOP;  [J  -  A 4  To  471 
DN(J)  “  FLDDARK; 

ENDLOOP; 

IF  INFORM(I).CONF(CINDEX(I)). SATURATION  0. 

THEM  CNFG_DATA( I ) . TOTAL. SAT  -  *  00*; 

KLSEIF  INFORM(I).CONF(CIMDEX(I)). SATURATION  LT  .095 
THEM 

C  -  SUBSTR(F(100.*INFORM(I).CONF(CINDEX(I)). SATURATION,  t THREE)  ,1,3) ; 
CNFC_DATA(I) .TOTAL. SAT  -  SUBS TR(C,  1,1)  COMCATBMATE  'O'  CONCATENATE  SUBSTR(C,3,1) 

ELSE 

C  -  SUBSTR( F(100.*INFORM(I).CONF(CINDEX(I)). SATURATION,  ITHREE) ,1,3) ; 

CNFG_DAT A ( I ) . TOTAL . SAT  -  SUBSTK(C, 1,1)  CONCATENATE  '.'  CONCATENATE  SUBSTR(C.2.2) 
IF  PRCARR(I)  .TOTARR  +  FRCARR( I ) .TOTDEP  EJ  0.  . 

THEN  ATOTPRC  -  .5; 
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ELSE  ATOTPRC  -  PRCARR(I).TOTARR/(PRCARR(I)  .TOTARR  +  PRCARR( I ) . TOTDEP )  ; 
CNFC_DATA (I). TOTAL . PCT_ARR  -  SUBSTR(P(100 • ‘ATOTPRC, iTHREE) ,1,3) ; 

ARRCAP  -  INFORM(I)  *CONF(CINDEX(l))  .NARRCAP  +  INFORM(I).CONF(CINDEX(I))  .SARRCAP 
DEPCAP  -  INFORM(I) *CONF(CINDEX(I) ) .NDEPCAP  +  INPORM(I) .CONP(CINDEX(I) ) .SDEPCAP 
B  TOT  PRC  -  ARRCAP/ (ARRCAP  +  DEPCAP); 

IP  ATOTPRC  GT  BTOTPRC 

THEM  DEPCAP  -  (1.0  -  ATOTPRC) *ARRC AP / ATOTPRC ; 

ELSEIF  ATOTPRC  LT  BTOTPRC 

THEM  ARRCAP  -  ATOTPRC‘DBPCAP/(1.0  -  ATOTPRC); 

CNFC_DATA(I).  TOTAL.  ARR.DEM  -  SUBSTR(  F(  PRCARR(I)  .TOTARR ,  $  THREE)  ,1,3) ; 
CNFG_DATA(I). TOTAL. DEP. DEM  -  SUBSTR(F(PRCARR(I).TOTDEP,  $THREE)  ,1, 3) ; 
CNFC_DATA (I). TOTAL . ARR  . CAP  -  SUBSTR(P(ARRCAP,iTHREE)l,3)  ; 

CNPG_DATA(I). TOTAL. DEP. CAP-  SUBSTR(F(DEPCAP,tTHREE) ,1,3) ; 

END  OUTPUT  SET  UP  (TOTAL); 
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PROCESS  0  UTP UT_SET_UP_( NORTH ) 

t  this  process  sets  up  screen  variable  with  north  coupler  Information] 

IP  INFORH(I) .CONF(CINDEX(I)) .NSAT  GE  0* 

THEMXP  IKFORM(I).COHF(CIHDKX(I)).NSAT  EQi  0. 

THEM  CNFG  _DATA( I ). NORTH . SAT  -  '  0.0'; 

ELSEIF  INFORM(I).CONF(CINDEXd)).NSAT  LT  .095 
THEM 

C  -  SUBSTR(P(  100.0  *  INPORMd).COHF(CINDEX(I)).NSAT,*THREE),l,3); 

CNFC_DATA (I ) .NORTH . SAT  -  SUBS TR(C,  1,1)  CONCATENATE  '.0*  CONCATEMATB  SUBSIR  (C.3,1); 

ELSE 

C  “  SUBSIR (P(100.*lNFOEM(l).COHP(ClNDEX(l))*NSAT,iTHREE)  ,1,3); 

CNFG_DATA(1). NORTH. SAT  -  SUBSIR(C,1,1)  CONCATEMATB  CONCATEMATB  SUBSIR(C,2 ,2) ; 

ELSE  CNPGJ)ATA(I) .NORTH. SAT  -  (A)'  '; 

IP  P&CARRd )  .CONP(CINDEX( I) ) .BNPRCNT  GE  0.0 

THEM 


CMPG  DATA(I). NORTH. PCT  ABE  -  SUBSTR(P(100.*PRCARR(I).CONF(C1NDEX(I)). BNPRCNT, iTHREE), 1,3) 
CNPG J>ATA(I)  .NORTH.  ARrTdEM  -  SUBSTRC P( PBCABB ( I ) .COHP( CINDEX( I ) ) . BMARRDEM -iTHREE)  .1,3); 
CNPG  DATA(I). NORTH. ARR.CAP  -  SUBSTR(F(INFORM(I).CONP(CINDEX(I)).NARRCAP,$THREE),l,3); 

CNFG J>ATA ( I ) . NORTH . DEP . DEM  -  SUBSTB(P(PBCARB(I).CONP(CINDEX(l)).BNDEPDEP,tTHREE),l,3); 
CMPG  DATA(I). NORTH. DEP. CAP  -  SUBSTR(F(PRCARR(I).CONF(CINDEX(I)).BNDEPCAP.tTHREE) ,1,3) ; 


ELSE 


CNPG  DATA(1).N0RTH.PCT  ARR  -  SUBSTR(F(100.*PRCARR(I).CONP(C1NDEX(I).NPRCNT,4THREE),1,3); 
CNFGJ DATA(I). NORTH. ARrTdEM  -  SUBSTR(P(PRCARE(I).CONP(CINDBX(I)).MAERDEM,|THREB) ,1,3) ; 
CNPG  DATA(l). NORTH. ARE. CAP  -  SUBSTR(P(INP0RM(I).C0NP(CINDEX(I)).SARECAP,ITHREE)  ,1,3) ; 
CNPG~ DATA ( I ) . NORTH . DEP . DEM  -  SUBSIR(F(PRCARR(I) .C0NP(C1NDEX(I)) .NDEPDEM.tTHREE) ,1,3) ; 
CNPGT)ATA(I)  .NORTH. DEP. CAP  -  SUBSTR(P(1NF0RM(I).C0NP(CINDEX(I))  .NDEPCAP.tTHREE)  ,1,3) ; 

END  OUTPUT  SET  UP  (NORTH); 
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PROCESS  OUTPUT_S£T_UP_(  SOUTH) 

[This  process  secs  up  screen  variable  with  south  coaplez  Information) 

IP  IHFORM(I).CONF(CINDEX(I)).SSAT  GE  0. 

THENIF  INFORM(I).CONF(CINDEX(I)).SSAT  ££  0. 

THEM  CNPG_DATA (I ). SOUTH . SAT  -  *  0.0*; 

KLSBIF  INFORM(l).CONF(CINDEX(I)).SSAT  LT  .095 
THEM 

C  -  SUBSTR(F(  100.0  *  INFORM(I).CONF(CINDEX(I)).SSAT,iTHREEE) ,1,3) ; 

CNFG  DATA (I). SOUTH. SAT  -  SUBSHUC.i.l)  CONCATENATE  ’.O'  CONCATENATE  SUBStt  (C.3,1); 


ELSE 

C  -  SUBSTR(F(100.»INFORH(I).CONF(CINDEX(I)).SSAT,ilHREE),l,3); 

CNFG_DATA(I). SOUTH. SAT  -  SUBSTR(C,1,1)  CONCATENATE  CONCATENATE  SUBSTR(C,2,2); 
ELSE  CNFG_DATA(I).SOUTH.SAI  -  (A)*  *; 

IF  PRCARR( I ) . C0NF( CINDEX(  I )  )  •  BNPRCNT  GE  0.0 
THEN 


CNFG  DATA(I).SOUTH.PCT  ARR  -  SUBSTR(P(100.*PRCARR(I).CONP(CINDEX(I)).BSPRCNT,jTHREE),l,3) j 
CNFG~DATA(I). SOUTH.  ARRTDKN  -  SUBSTR(F(PRCARR(I)  .CONF(CINDEX(I))  .BSARRDEM.  (THREE) ,1,3) ; 
CNFG~bATA(I).  SOUTH.  ARR.  CAP  -  SUBSTR(F(INFORMd).CONF(CINDEXd)).SARRCAP, (THREE),  1,3); 
CNFC'DATA(I). SOUTH. DEP. DEM  -  SUBSTX(F(PRCARR<I)  .CONP(CINDEX(I)).BSDEPDEP, (THREE)  ,1,3); 
CNFgTDATA(I). SOUTH. DEP.CAP  -  SUBSTR(F(PRCARK(I).CONF(CINDEX(I)).BSDEPCAP, (THREE) ,1,3); 

ELSE 

CNFG  OATA(I). SOUTH. PCT  ARR  -  SUBSTR(F(100.*PRCARR(I).CONF(CINDEX(I).SPRCNT,(THREB).1.3); 
CNPg'DATA (I ) . SO UTH . ARRTdEN  -  SUBS TR( F( PRCARR(I)  .CONF(CINDEX(I)) .SARRDEN.iTHREE) ,1,3)  ; 
CNFG*- DATA  (I).  SOUTH  .ARR.  CAP  -  SUBSTR(F(INFORM(I).CONF(CINDEX(I))  .SARRCAP , (THREE)  ,1,3); 
CNFG_DATA( I ) . SOUTH . DEP. DEN  -  SUBSTR(F(PRCARR(I> .CONF(CINDEX(I)).SDEPDEM, (THREE) ,1,3); 
CNFG~DATA( I ) . SOUTH .DEP.CAP  -  SUBSTR{F(INFORM(I).CONF(CINDEX(I)).SDEPCAP, (THREE), 1,3); 

END  OUTPUT  SET  UP  (SOUTH); 
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PROCESS  OUTPUT_SET_UP_(BALANCING_ARRIVALS); 

[This  process  secs  up  screen  variable  with  arrival  deaand  balancing  Information! 

IF  PRCARR(I) .CONP(CINDEX(I) ) .BNPRCNT  GE  0. 

THEN1F  INFORMd)  .CONF(CINDEXd))  .CHANGENARR  GT  0 

THEM 


CHANGE  -  FLOATdNFORMd).CONF(CINDEXd)). CHANGENARR); 

CNFG_DATA(I ). BALANCING. ACOKP LEX  -  ’SOUTH’; 

CNFG_DATA( I). BALANCING. AMOVE  -  SUBSTR(F( CHANGE, iTHREE)  .1.3); 
ELSEIF  INFORM(I)  .CONF(CINDEX(I)  )  .CHANGENARR  LT  0 
THEN 

CHANCE*FLOAT(INFORMd)  .CONFCCINDEX(I)  )  .CHANGENARR) 

CNFG  OATA( I). BALANCING. ACOMPLEX  -  'NORTH'; 

CNFGJDATAd)  .  BALANCING. AMOVE  -  SUBSTR(F(CHANGE,tTHREE)  ,1,3) ; 

ELSE 

CNFG  DATA(I) .BALANCING.ACOMPLEX  -  (A)’  ’; 

CNFG~DATA( I). BALANCING. AMOVE  -  '  NO* ; 

TH(5ff)  -  FLOP  ARK; 

TM(59>  -  FLDDARK; 

ELSE 

TM(57)  -  FLDDARK; 

TM(58)  -  FLDDARK; 

TM(59)  -  FLDDARK; 

DH(4A)  -  FLDDARK; 

DM(45)  -  FLDDARK; 

END  OUTPUT_SET_UP_(  BALANC I NC_ARR I V ALS  ) ; 
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PROCESS  OUTPUT_SET_UP_(BALANCING_DEPARTUR£S) ; 

[This  process  sets  up  screen  vsrlsble  with  departure  demand  balancing  Information] 

IP  PRCARRd).CONF(CINDEXd)).BNPRCNT  GE  0. 

THENIF  INFORMU).CONF(CINDEXd)).CHANGENDEP  CT  0 

THEN 


CHANGE  -  FLOATdNFORMU).CONF(CINDEXd)).CHANCEND£P); 
CNFG_DATA( I). BALANCING. DCOMPLEX  •  'SOUTH'; 

CNFG_DATA(I). BALANCING. DMOVE  •  SUBSTR(F(CHANGE,$THREE) ,1,3) ; 

ELSEIF  INPORM(I) .CONF(CINDEX(I)) .CHANGENDEP  LT  0 

THEN 


CHANGE-FLOAT(INFOitM(I)  .CONF(CINDEXd)  )  .CHANCED EP) 

CNFG  DATA(I). BALANCING. DCOMPLEX  -  'NORTH'; 

CNFG~DATA(I). BALANCING. DMOVE  -  SUBSIR(F(CHANGE,tTHREE)  ,1,3) ; 


ELSE 


CNFG  DATA(I). BALANCING. DCOMPLEX  -  (*)'  •; 
CNFG  DATA(I). BALANCING. DMOVE  -  '  NO'; 
TM(6D  -  FLDDARK; 

TM(62)  -  FLDDARK; 


ELSE 

TM(60>  -  FLDDARK; 

TM(61)  -  FLDDARK; 

TM(62)  -  FLDDARK; 

0M(A6)  “  FLDDARK; 

DM(47)  -  FLDDARK; 

END  OUTPUT_SET_UP_(BALANCING_DEPARTURES); 
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PROCESS  OUTPUT  SET  UP  (OTHERS)  „  ... 

11  Tfils  process  sets~up  screen  variable  with  rest  of  information  needed  oo  coof iguratloo  information 

screen] 

DUMMY  1  - 

IF  MIDFLAG(I)  ME  (2)'  ’ 

THEN 

LOOP;  (R  -  1  to  5] 

IF  (MID(R).NUM  AMD  CNFGRQ(CINDEXU)) .ID)  ME  0 

THEN  DUMMY1  *  DUMMY1  CONCATENATE  MID(R).CKR; 

ENDLOOP; 

IF  DUMMY1  E&  * ' 

THEM  CNFG  DATA(I).WMSC1  -  (80)'  ' ; 

BT.SE  CNFGJ>ATA(I).HMSC1  -  DUMMY1  CONCATENATE  ‘COORDINATE  WITH  MIDHAY  TRAFFIC'; 

IIIRLIND  -  “ ; 

LOOP;  IN  -  1  to  12] 

IF  RUYEQP(I).RUNWAY(N).HIRL  NE  (2)  '  ' 

THEN  HIRLIND  -  HIRLIND  CONCATENATE  'l'B; 

ELSE  HIRLIND  -  HIRLIND  CONCATENATE  'O'B; 

ENDLOOP; 

COMBIND  -  SUBSTR(CNFCRQ(C1NDEX(I)).ID,1,12)  CONCATENATE  SUBSTR(CNFORQ(CINDEX(I)).ID,13>12); 
COMBIND  -  COMBIND  AND  HIRLIND; 

DUMMY  1  - 
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LOOP;  |H  •  1  to  12] 

IF  SUBSTR(COMBIKD,N,l)  E£  ’l'B 

THEN  DUMMY1  -  DUMMY1  CONCATENATE  H1RL(N) ; 

ENDLOOP; 

IP  DUMMY  1  NE  •  • 

THEN  CNFG_DATA(I).WMSG2  •  DUMMY  1  CONCATENATE  ’INELIGIBLE  BETWEEN  SUNSET  A  SUNRISE' 
ELSE  CNPG_DATA(1).WMSG2  -  (80)’  ’j 
END  OUTPUT  SET  UP_( OTHERS); 
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ROUTINE  CCHECK 


1NOUT  (CNFG  DATA(I),CID, CURSOR)  aH  a  re8ult  of  an  erroneous 

“as  “  •— *  -* 

muuu  is  Issued  advising  user  with  correctional 


entry  and  returns 
an  appropriate 


ERR5  -  'INPUT  MUST  BE  X  OR  BLANK'; 


CID  -  (24)  'O'  B; 

CNFC  DATA(I).MSC  “  'DATA  ENTERED' 
B1  -  "B; 


B2  -  'l'B; 


B3  «  (23)’Q'B; 

BPPRST  VIHILE  (CNFG  DATA(I) .KSG  E£  'DATA  ENTERED')  [J  -  1  to  12 1 
[check  screen  Inputs] 

CURSOR  “J+l» 

IP  X(CNPG_DATA(I).CONP.ARR(J))  W  0 
THEN  CNPC_DATA(1).MSC  -  ESR5; 

ELSE 

B  -  B1  CONCATENATE  B2  CONCATENATE  B3; 

B1  -  'O'B  CONCATENATE  Bl; 

IP  CNPG_DATA(I).COHP.ARR(J) 

then  CID  "  CID  OR  B; 


ENDREPEAT; 
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REPEAT  WHILE 


(CNFC_DATA(I).MSG  ’DATA  ENTERED’)  1J  “  1  To  12 J 
CURSOR  -  J  +  13; 

IF  X(CNFC_DATA(I).CONF.DEP(J))  NE  0 
THEN  CNFG_DATA( I ) . MSG  -  ERR5; 

ELSE 

B  -  B1  CONCATENATE  B2  CONCATENATE  B3; 

B1  -  *0'B  CONCATENATE  Bl; 

IF  CNFC_DATA(I).CONP.DEP(J)  -  ’X  • 

THEN  C ID  “  CID  OR  B; 

ENDREPEAT; 

IF  CNFC_DATA(I).MSG  EJ  ’DATA  ENTERED* 

THEN  CURSOR  -  2; 

END  CCHECK; 
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ROUTINE  CVALID 

IN  (CNFC_LIST,CID); 

INPUT  (CNFG_DATA(t),CINDEX(I)); 

"  [This  routine  performs  data  validation  checks  on  screen  entries  and  returns  value  for  cursor 

pointing  to  first  Invalid  data  field.  Also,  an  appropriate  screen  message  is  issued  advising  user 
with  corrections] 

ERRCNFC  -  'THIS  CONFIGURATION  IS  NOT  KNOWN'; 

CNFG  DATA(I) .MSG  -  'DATA  ENTERED'; 

L  -  T.O; 

U  -  73.0; 

AGAIN  -  1; 

INDEX  -  0; 

REFEAT  WHILE  (AGAIN  §1  1); 

INDEX  -  FLOOR  ((L+U)/2.0); 


IF  U  LT  L 


THEN  [ID  not  in  list] 

AGAIN  “  0 
INDEX  *  0; 

KLSEIF  CID  GT  CNFG_HST(INDEX).ID 


THEN  L  -  INDEX  ♦  1; 

ZLSEIF  CID  LT  CNFG  LI ST( INDEX) .ID 


THEN  U  -  INDEX  -  1; 

ELSE  AGAIN  -  0  [ID  is  equal  to  CNFG_LIST(INDEX) ] 


BNPREPEAT; 

IF  INDEX  0 

THEN  CNFG  DATA(I) .MSG  •  ERRCNFC; 
ELSE  CINDEX(l)  -  INDEX; 


END  CVALID; 


N3 
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ROUTINE  CUPDATE 

IN  CMPCRQ(CINDEX(1)).ID); 

INPUT  CNFC_DATA(I); 

l This  routine  per forme  local  updates  on  screen} 
LOOP;  (J  -  1  to  12} 

IP  SUBSBUCNFGRQ(CINDRX(I)).ID,J,1)  “  'l'» 

THEN  CNPG_DATA(I).CONF.ARR(J)  »  'X  '} 

ELSE  CNFG_DATA(I)  .CONF.ARR(J)  *  •  • 

IF  SUBSTR(CNPGRq(ClNOEX(l)).lD,J  +  12,  1)  *  *1*B 
THEM  CNPGJIATA(O.CONF.DEPCJ)  -  *X  *; 

ELSE  CKPCJDATAU) .CONP.DEP(J)  -  •  *; 

EMDLOOP; 


END  CUPDATE; 


2.16  Menu  and  Paraaeter  Screens 


The  processing  for  the  Menu  and  Paraaeter  Screens  is  presented 
In  pages  2-422  to  2-433. 
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(***LOCAL  VARIABLES***) 

STRUCTURE  FARM_DATA  LIKE  PARAM 

(This  structure  Is  slallsr  to  PARAM  used  ss  e  working  srea  within  screen  routine) 

EHDSTRUCTURK; 

STRUCTURE  CNVRT_PRH  LIKE  CMVTPRM 

[This  structure  Is  similar  to  CMVTPRM  used  es  a  working  area  within  screen  routine] 

ENDSTRUCTURE; 

IHT  SWITCH(2)  [This  vsrlable  Is  used  for  switching  between  current  end  forecast  screens,  Initialised  to 

(2.D) 

STRUCTURE  PARM_LOADLIST  [A  structure  of  pointers,  one  for  each  data  field  on  screen  used  by  panel 

manager  for  loading  and  unloading  data  to  and  from  screen] 

CROUP  PARAMETER 
CROUP  CESS 

PTR  ARR  (pointer  for  arrival  crosswlnd  threshold  data  field] 

PTR  DEP  [pointer  for  departure  crosswlnd  threshold  data  field] 

CROUP  TAIL 

PTR  ARR  [pointer  for  arrival  tailwind  threshold  data  field] 

PTR  DEP  [pointer  for  departure  tailwind  threshold  data  field) 

PTR  MSG  [pointer  for  screen  message  data  field) 

BITS  PENCE  [32  bit  variable  as  prescribed  by  DMS  manual,  Initialised  to  string  of  (32)  'l'B] 
EHDSTRUCTURK; 
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STRUCTURE  MENULOAD  (A  structure  of  pointers,  one  for  esch  dsta  field  on  screen  used  by  panel  Manager 
for  loading  and  unloading  data  to  and  from  screen] 

FTR  TERMINATION  [pointer  for  termination  indicator  data  field) 

R1TS  FENCE  [32  bit  variable  as  prescribed  by  DMS  Manual,  Initialized  to  string  of  (32)  'l'B] 
ENPSTRUCTURE; 


1 
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ROUTINE  MENUPRM 

input  (param,  cnvtprm,  rstatus); 

OUT  (TERN);  ,  , 

[This  routine  invoke*  nenu  *creen  and/or  parameter  acreen] 

PARMDATA  -  PASAM; 

CNVRTPRM  -  CNVTPRN; 

I  -  U 

REPEAT  UNTIL  (RSTATUS  Nf  PP12); 

IP  I  2 

THEM  PASAM  DATA  •  PASAM 
I  •  SHITCH(I);  ) switch  between  two  acreena] 

REPEAT  UNTIL  (RSTATUS  HE  PP11); 
l  -  SWITCH(I); 

IT  I  fa  1 

THEM  CALL  MSCREEH; 

IMOUT  (RSTATUS); 

OUT  (TEEM); 

(Thia  routine  coetrola  eenu  acreen) 

ELSE  CALL  P SCREES; 

IMOUT  (PASAM  DATA , CNVRT  PRM ,  RSTATUS); 

[Tbia  routine  control*  parameter  screen] 

EMPREPEAT; 

EMPREPEAT; 


I 


I 
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IT  SUBSTK( PAAAM_DATA . MSG ,  1 ,  12)  'DATA  EMTUED* 


PARAM  .  rum  DATA; 

cmrnut  -  C«WK_«M; 


END  MUUPUl; 
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ROUTINE  M SCREEN 

INPUT  (RSTATUS); 

OUT  (TERM); 

[This  routine  controls  nenu  screen] 

CHK  PNAME  [character  variable  of  length  8  containing  nane  of  DMS  panel  Initialised  to  'HELP' 
of  panel  that  controls  aenu  screen] 

INT  CURSOR  [Integer  variable  containing  cursor's  position  on  screen] 

MENU  LOAD. TERMINATION  -  ADDR(TERM);  (set  up  screen  pointer] 

CURSOR  -  1; 

*  REPEAT  UNTIL  ((RSTATUS  NE  ENTER)  OR  (TERM  »}  *X  •  )); 

TERM  -  '  '; 

PERFORM  DISFLATPANEL; 

IF  RSTATUS  E£  PA1 
THEM  .top; 

ENDREPEAT; 


naae 


END  MSCREEN; 
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ROUTINE  P SCREEN 

INPUT  (PARMDATA,  CNVRT_PRM,  R STATUS ) ; 

[This  routine  control*  paraneter  screen] 

CHR  PNAHE  (character  variable  of  length  8  containing  naae  of  DNS  panel  Initialised  to  'PABMOPT' , 
nane  of  panel  that  controls  parasMter  screen] 

I NT  CURSOR  [Integer  variable  containing  cursor's  position  on  screen] 

BITS  DM(5)  [8  bit  vsrlable  of  dsts  masks  used  In  DNS] 

STRUCTURE  AUXDATA  LIRE  PAINJDATA 

ENDSTRUCTURE; 

CURSOR  •  1;  (set  cursor  to  position  1;  first  data  field  on  screen] 

DH  -  FLDDEF;  (set  data  fields  to  default  Intensity  (normal)] 

DM(5)  *  FLOUIGU;  (set  lsst  date  field  to  high  Intensity] 

AUXDATA  -  PARMDATA; 

PERFORM  SET_UP_SCREEN_P01NTERS_(PA*M); 

REPEAT  UNTIL  (RSTATUS  NE  ENTER); 

PERFORM  DISPLAY_PANEL; 

IF  RSTATUS  E£  PA1 
THEM  stop; 

IF  RSTATUS  NE  ENTER 

THEM  PARMJMTA  -  AUXJXATA; 

ELSE 

DM  -  FLDDEF; 

»(S)  -  FLDHIGH; 
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CALL  PCHECK; 

INPUT  (PARH_DATA,  CNVRT_PRM,  CURSOR); 

(This  routine  check*  for  error*  occurred  on  screen  a*  a  reeult  of  erroneous 
entry  and  return*  value  for  cursor  pointing  to  first  data  field  where  an  error 
has  occurred,  and  an  appropriate  screen  Message  Is  Issued  advlelng  user  with 
corrections] 

IF  PARMDATA.MSG  NE  'DATA  ENTERED' 

THEN  DM(CURSOR)  -  FLDHIGH; 

ELSE 


CALL  PVALID; 

INPUT  (PARMDATA,  CNVRTPRM, CURSOR); 

[This  routine  perform  data  validation  checks  on  screen  entries  and 
returns  value  for  cursor  pointing  to  first  Invalid  data  field.  Also, 
an  appropriate  ecreen  eessage  Is  Issued  advising  usar  with 
corrections) 


IF  PARM_DATA.MSG  NE  'DATA  ENTERED' 

THEN  DH(CURSOR)  -  FLDHIGH; 

ELSE 

P AEM_DATA . MSG  -  'DATA  ENTERED  AT  '  '  CONCATENATE  GMT; 
AUXJDATA  -  PARM  DATA; 

ENDREPEAT; 


END  PSCREEN; 
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PROCESS  SET_UP_SCREEH_POINTERS_(  PARM) 

(This  process  pets  up  screen^  pointers  for  QMS  use) 

PARMJLOADLIST.PAIAMETBE.CRSS.au  >  ADDR(PARM  DATA. PARAMETER. CESS. AU); 
PARM_LOAN.IST.PARAMETER.TAIL.ARR  >  ADDR(PARM  DATA. PARAMETER. TAIL. AU); 
PARM_LOADLIST.PARAMETU.CUS.DBP  «  ADDR( P ARM_DATA . PARAMETER . CESS . DEP ) ; 
PARM_L0ADLIST.PARAMETER.TA1L. DBF  -  ADDR(PARM~DATA.  PARAMETER. TAIL.  DEP); 
PARM_LOADLIST .  MSG  -  ADDR( P ARM_DATA .  MSG  ) ;  ~ 

END  SET  OP_SCREEN_POINTEU_(PARM) 
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ROUTINE  PCHECK 

INPUT  (PAKM_DATA,  CNVRTPRM,  CURSOR): 

[This  routine  checks  for  errors  occurred  on  screen  ss  a  result  of  erroneous  entry  sod  returns  velue 
for  cursor  pointing  to  first  dste  field  where  so  error  hss  occurred,  end  so  spproprlste  screen 
■essage  Is  issued  advising  user  with  corrections) 

ERRl  •  'NUMERIC  INPUT  REQUIRED'; 

ERR2  -  ' NON  NEGATIVE  INPUT  REQUIRED'; 

PARMDATA.MSG  -  'DATA  ENTERED'; 

ON  CONVERSION  BECIN  [ON  CONVERSION  Is  a  PL/I  feature  that  Is  Invoked  If  a  character  data  Is  detected  In 
a  nueerlcal  data  field] 

PARM  DATA.MSG  •  ERRl; 

RETURN; 

CURSOR  *  1; 

Get  STRING  (PARM_DATA.PARAMETER.ARt.CRSS)  EDIT  (CHVRT_PRM.AR1.CRSS) ; 

IP  VKRIPTf(  '-'  ,  PARM_DATA.PARAMETEE.ARR.CRSS)  E£  0 
THEM  PARM  DATA.MSG  -  ERR2 ; 

ELSE 

CURSOR  -  2; 

Get  STRING  (PARM_DATA.PARAMmR.DtP.CRSS)  EDIT  (CHVRT_PRM.DtP.CRSS); 

IP  VERIFY  PAIM_DATA.PARAMTER.DtP.CISS)  R£  0 

THEN  PARM  DATA.MSG  -  EIR2; 
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ELSE 

CURSOR  -  3; 

Get  STRING  ( PARM_DATA. PARAMETER. ARR. TAIL)  EDIT  (CMVRT_PRM.ARR.TAIL); 
IF  VERIFY  PARMDAT  A.  PARAMETER. ARR. TAIL)  E£  0 

THEN  P ARM_DATA . MSG  -  ERR2; 

ELSE 


CURSOR  -  4; 

Get  STRING  (PARM_DATA.PARAMETER.DEP.TAIL)  EDIT  (CNVRT_PRM.DEP.TAIL) 
IF  VERIFYC-',  PARM_DATA. PARAMETER. DEP. TAIL)  E£  0 
THEN  PAMMJULTA.HSC  -  ERR 2; 

ELSE  CURSOR  -  1; 


END  PCHBCK; 
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ROUTINE  PVALID 

INPUT  (PARM_DATA,  CNVRT_PRN,  CURSOR); 

[This  routine  perforas  date  validation  checks  on  screen  entries  and  returns  value  for  cursor 
pointing  to  first  Invalid  data  field.  Also,  an  appropriate  screen  sassage  is  Issued  advising  user 
with  corrections] 

tTHREB  -  3; 

THRERR1  -  'CROSSWIND  THRESHOLD  MUST  NOT  EXCEED  SO  KNOTS' ; 

THREE R2  -  'TAILWIND  THRESHOLD  MUST  NOT  EXCEED  50  KNOTS’; 

CURSOR  -  1; 

IP  CNVRT_PRN.ARR.CRSS  CT  SO. 

THEN  PARMDATA.MSC  -  THRERR1; 

ELSEIP  CNVRT_PRM.ARR.CRSS  EJ  0. 

THEN  PARM_DATA.PAKAME1KR.ARK.CXSS  -  '  0.0‘; 

ELSE 

C  -  SUBSTR(F(CNVRT_PRM.  AER.CRSS*10.0 , tTHRBE)  ,1,3); 

PARM_DATA.PARAMETXE.AEX.CBSS  -  SDBSTR(C,1,2)  CONCATENATE  '.'  CONCATENATE  SUBSTE(C,3,1); 
CURSOR  -  2; 

IP  CNVRT_PRM.DEP.CRSS  CT  50. 

THEM  PARM  DATA.MSC  -  THRXRK1; 

ELSEIP  CNVET_PBM.DEP.CRSS  E£  0. 

THEM  PAIM_DATA.PAXAMETKE.DEP.CRSS  -  '  0.0'; 

ELSE 

C  -  SUBSTR(P(CMVRT_PRM.0KP.CXSS*10.0,tTHREE),l,3); 


> 
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PAKM_DATA.PA1UKETU.DEP. CESS  -  SUBSTK(C.l  .2)  COMCATEMATE  COMCATEMATE 
SUBSTR(C,3,1); 

CURSOR  -  3; 

IP  CNVKT_PRM. ARE. TAIL  GT  50. 

THEN  PARM_DATA.HSG  -  THRERK2; 

ELSEIF  CMVRT_PBM.AKK.TAIL  EJ  0. 

TUN  P ARM_DATA. PARAMETER. AKR. TAIL  -  '  0.0’; 

P»SE 

C  -  SUBSTR(F(CMVRT_PRM.ARR.TA1L*10.0,  (THREE), 1,3); 

PARM  DATA. PARAMETER. AIK. TAIL  -  SUBST*(C,1 ,2)  COMCATEMATE 
COMCATEMATE  S!iSSTR(C,3,l); 

CURSOR  -  A; 

U  CMVRT_PRM.DRP.TAIL  CT  50. 

TERM  PARM_DATA.MSC  •  THRERR2; 

RLREIP  CMVRT_PRM.DRP.TAIL  K$  0. 

TERM  PARM  DATA. PARAMETER. DRP. TAIL  -  '  0.0’; 


C  -  SURSTE(P(CMVET  PRM.DEP.TAILMO.O, 
♦THREE), 1,3); 

PAW_MTA.PARAMRTU.IIRP.IAIL  -  S0RSTR(C,1 ,2) 
COMCATEMATE  ’.’  COMCATEMATE  SURSTR(C.3.1) 

ELSE 


RMD  FVALID; 


CURSOR  -  1; 


